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Sorting Data Files 


BEEBUG FILER SORT ROUTINE Most of what you read in BEEBUG has been contributed by BEEBUG 
S ER members. Some are long-standing authors whose names you will 
find in many past issues of the magazine. Equally, many of the 
SORTED CONPORUTEDN articles and programs that we publish arrive out of the blue, and it is 
Me stant CN cee nos true to say that many of our best programs and articles have 
Greaue H i H fo appeared in this way 
We would like to encourage more members to consider sending in 
ia OC their best programs for possible publication. All programs are 


looked at carefully, before any decision is made, and all material 
used is paid for on publication, at up to £40 per page. We are 
Press ‘A’ for ascending order particularly interested in applications of all kinds, but all good 

BO Buer ees PA OT.: quality programs are welcome. If you have a program which you 
feel would be of interest to other BEEBUG members, why not send 
it in, preferably with an accompanying article. Use previous issues of 
BEEBUG as a guide to length and style. We also have some “Notes 
of Guidance for Contributors” which are available on receipt of an 
A5 SAE. 


Many of you will have noticed the change in the form of mailer used 
to distribute the magazine. As with many other magazines, we are 
now using a transparent plastic mailer which allows the mailing 
process to be more effectively automated, and integrated with the 
printing. This system has not yet been introduced for those who 
also get a renewal notice, but this part of the mailing will be 
included at some time in the future. As a result, we hope that we 
shall be able to greatly streamline the mailing process, 


Building Sideways RAM 


usi, Unite sold yr Units sold We are now able to offer BEEBUG vouchers in £1, £5 and £10 


20 rie denominations. There are no extra charges (other than 50p påp if 

160 Y 168 ordered alone) and the vouchers are redeemable against any 

på j ap purchase from BEEBUG including hardware, software, membership 
and renewals. The ideal Christmas present for the BBC micro 


48 49 
enthusiast. Order yours now (or get someone to buy them for you). 
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Units sold Units Units sold 
We hope that the new classification symbols introduced last month 
for programs and reviews clarify matters with regard to the growing 
variety of Acorn Systems. The complete set of symbols is shown 
below. These show clearly the valid combinations of machine 
(version of Basic) and filing system for each item (and Tube 
compatibility). Remember that a single line through any symbol 
indicates partial working (normally a few changes will be needed) 
and a cross over a symbol shows total unsuitability. For reviews we 
do not distinguish between Basic | and Basic Il, but merely put a 'B', 
for the model B 
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COMPUTER SYSTEM FILING SYSTEM 
= Master (Basic) [WE — ADFS n 
E Compact BasiclV) (D DFS I 
ii Compact (BasicIV) [1 Cassette 
ModelB (Basic II) TUBE COMPATIBILITY 
Model B (Basic |) Tube 
Electron 


Computer Aided Design 


More Disc Drives 


Akhter has launched two 
new disc drives for the BBC 


micro. For hard disc users 
there is the 'Archive' 
combined floppy disc drive 
and tape streamer unit. The 
two drives are built into a 
bridge type monitor stand 
to fit over the Beeb, and 
provide normal floppy disc 
storage (8Ø track, double 
sided) and tape cartridge 
backup for a hard disc 
connected to the IMHz bus. 


Backup software is also 
provided. Archive costs 
£999.95. 


Akhter is also offering 
a 'Combo' combined 5.25 in. 
and 3.5 in. disc drive. Now 
that software is available 
in both formats for the 
older BBC machines and the 
new Master Compact, users 
may wish to read both types 
of disc. The two units are 
built into a standard twin 
disc drive case and the 
5.25 in. drive is provided 
with a 4Ø/8Ø track switch. 
Software can be transferred 
from one format to the 
other with the dual format 
unit. The Combo costs 
£249.95 without a power 
supply, and another £19 with 
power supply, from Akhter on 
Ø279-443521. 


Speak Out 


R & D Speech Technology 
has released a speech 
recognition system for the 
BBC micro. Micro-voice 
plugs into the 1MHz bus and 
comes complete with a 
microphone. The device is 
'trained' to recognise ten 
words at a time which it 
can then respond to within 
half a second. 


R & D claims just about 
any program can incorporate 
the speech recognition 
system to make a wide range 
of tasks voice controlled. 
The Micro-voice costs £171 
(that's £17 per word!). 
Further details from R & D 
on 0326-75290. 


Tea Break 


Although a cup of tea 
or coffee while working at 
the micro keyboard is a 
good idea for the user, it 
can be dangerous for the 
micro. A  Viziflex seal 
prevents any damage from 
spilt drinks but allows the 
micro to be used almost as 
normal. Moulded to the 
shape of the Beeb's 
keyboard,the clear Viziflex 
cover sticks in place and 
Seals the micro from dust, 
liquids, or any other 
unwanted add-ons. A BBC 
micro Viziflex costs £19.95 
from Ceratech Electronics 
on 0420-88674. 


Wordwise Training 


The TVEI Wordwise 
Training Pack is published 
by Muse with the support of 
Computer Concepts. The 
training pack is a complete 
introduction to using the 


Wordwise word processor and 
contains study material, 
interactive exercises on 
disc, a reference book and 
glossary, sixty reference 
cards and a 'prompt' card 
for quick keyboard-side key 
and command reminders. The 
pack is intended for users 
of both  Wordwise and 
Wordwise Plus and costs £28 
from Jordanhill College 
Publications on (041-959 
1232; 


Scientific Words 

The first word proc- 
essing package for the 
Acorn Cambridge Workstation 
and 32016 second processor 
has been produced by Vuman. 
Vuwriter Scientific offers 
the normal text editing 
functions and two character 
sets, including Greek and 
Scientific symbols (500 
characters in all), and an 
overprint capability for 
producing more ` complex 
characters on the screen. 
Vuwriter costs £110 from 
Vuman on 061-969 4778. 


Oaks and Acorns 


Oak Computers is offering a 
range of  business-style 
micros based on the Master 
128. The PCM range features 
a detached keyboard with a 
main system box holding the 
Master circuit board, disc 
drives and various optional 
extras. Prices range from 
£495 for a PCM without disc 
drives to £4,375 for a 
System with twin drives, 
32016 second processor and 
4üMb hard disc drive. 
Versions with Z8Ø second 
processor and V21/V23 modem 
are also available. Details 
from Oak on 0532 502615. 
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New Service to Members 


We are being increas- 
ingly asked by members for 
advice on which computer 
hardware they should buy. 
There are so many different 
altern- atives to choose 
from that even experienced 
users are often confused by 
the selection. Also, ina 
number of instances, we are 
hearing of members who have 
bought equipment only to 
discover that the product 
is not suitable for the 
task they required. We are 
therefore offering a new 
service to help members 
decide on what equipment to 
purchase. We have produced 
seven fact sheets covering 
all the major topics, and 
these are available free of 
charge. The subjects to be 
covered are: 


1 Compact and Master 
Computers 

Disc Drives 

Disc Filing Systems 
Printers 

RAM/ROM Boards 
Monitors 

Second Processors 


- O0» Ub QN 


Please write to our St 
Albans address and mark the 
envelope ‘Hardware Fact 
Sheets' enclosing a stamped 
addressed envelope. Please 
quote your BEEBUG 
membership number and the 
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numbers of the sheets you 
require. 


ADFS Masterfile Compatibility 


Many members are 
expressing an interest in 
ADFS Masterfile II, but are 
concerned that their 
existing data files will 
not be compatible with the 
ADFS version. Existing data 
files can be transferred to 
the ADFS by using the Copy 
utility on the ADFS utility 
disc. Please note that ADFS 
Masterfile is compatible 
with the official Acorn 
ADFS and the BBC model B, 
Bt, Master 128 and Compact. 


Dumpmaster ROM 
A new version of the 
Dumpmaster ROM is now 


available offering improve- 
ments for the Master 128. 
Screens can now be dumped 
and saved from shadow RAM 
and extra screen dumps are 
provided for the following 
printers: 


Epson JX80 
Paper Tiger (IDS440/445) 
Walters WM2ØØØ/4ØØØ 


For further details, 
please contact our 
technical department on 


(Ø727) 60263. 


BEEBUG Disc Prices Down 


We are pleased to pass 
on from the manufacturer, a 
significant reduction in 
the price of BEEBUG blank 
discs. These are the same 
high quality discs from a 
leading manufacturer, and 
represent even greater 
value for money. BEEBUG 
discs are individually 
tested and guaranteed for 
life by BEEBUG, and are 
supplied in a free storage 
box. Please check the 


Dynamic Disc advert for 
full details of the new 
prices. 


New Magic Modem Software 
Beebugsoft will soon be 


releasing a new comunic- 
ations ROM for the BEEBUG 


Magic Modem. The ROM 
includes over 50 commands 
covering all the usual 


features such as Download, 
Text Terminal, Viewdata 
Terminal, but also offers 
many special features, for 
example: 


* All features are 
available from * commands, 
allowing Basic programmers 


to write their own 
communications software 
with ease. 

* A powerful telephone 


directory is included in 
ROM, allowing you to enter 
all your important numbers. 
No need to remember numbers 
any more, just specify the 


name you require e.g *CALL 
'prestel'. 
* Comprehensive teletext 


editor with facilities to 
save a number of screens in 
one file, dump Screens, 
load screens and produce a 
carousel display. 


* Other special features 
include an auto-answer 


facility, a real time 
clock, frame grabbing, and 
much more! 

The software is 


supplied on a 16K ROM with 
a comprehensive manual and 
function key strip. A disc 
containing a selection of 


utility programs is also 
being prepared. See our 
adverts for prices and 
availability. 
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To Control 


BOXES 


Look what Chris Curry, one of Acorn's 
original founders has dreamed up 
now — Red Boxes to control your 
house and home. Ian Waugh just 
couldn't resist the temptation and 
reports on his experiences. 


Product : Red Boxes 

Supplier : Electronic Fulfilment Services, 
Chesterton Mill, French’s Road, 
Cambridge CB4 3NP. 
Tel. (0223) 323143 

: £129.00 (plus £4 p&p) for 
starter kit of Red Leader, 
Red One and Red Two. 


Price 


In the early days of home computing, 
one of the most talked-about areas of 
application was computer control. A common 
topic was security: switching lights on 
and off at random, and controlling sensing 


devices to activate a burglar alarm. 
Another favourite was environmental 
control, monitoring temperature for 


example and switching appliances on or off 
as required. 


Theoretically, at least, it should 
have been an easy matter to put just about 
any electrical device under computer 
control but early control units had severe 
limitations. Most required an elaborate 
interface involving trailing wires, and 
none had the intelligence which is built 
into the Red Box system. Such devices also 
had to be permanently connected to the 
host computer, increasing the cost 
considerably, and relegating the computer 
to the role of a simple timer. 


Red Boxes, developed by Chris Curry's 
new company, General Information Systems 
(GIS), takes a different tack and one 
which is so simple and obvious you may 
well wonder why it hasn't been done 
before. The Boxes plug into the standard 
13 amp ring main and communicate with each 
other using a mains-borne 129 kHz carrier, 
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a frequency set aside by the British 
Standards Institution for just such a 
purpose. The devices to be controlled plug 
into the Red Boxes and this takes care of 
the safety aspects (e.g. protection from 
the mains voltage) as well as removing the 
need for lots of trailing wires. They will 
operate over a distance of approximately 
200 metres so you can scatter them 
liberally throughout a fair-sized mansion. 


The starter system includes a Red 
Leader, a Red One and a Red Two. Red 
Leader is the master control unit and is 
equipped with its own 65Ø2 based computer 
and 8K of RAM. All communication is 
directed through this unit. Red One is an 
on/off switch and Red Two is an infra-red 
movement detector. Red Leader connects to 
the  RS423 port of your Beeb, and a 
terminal program downloads upon switching 
on. This is simply to allow communication 
between Red Leader and your computer; the 
actual control program runs inside Red 
Leader, not the host micro. The beauty of 
the system is that after programming Red 
Leader you can unplug your computer and 
Red Leader will monitor the other units 
and carry out quite complex sets of 
instructions on its own. 


The system is very security conscious. 
New Red devices are introduced to Red 
Leader by their security number (quite a 
lengthy sequence of digits) of which there 
are over 16 million combinations. As well 
as making the system virtually tamper- 
proof, it will let several Red Box systems 
operate on the same wiring without inter- 
ference with each other, or other systems. 
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Once downloading has taken place - a 
matter of some 15 seconds - a menu appears 
on the screen. You can use this to give 
the Boxes simple instructions, such as 
times to switch on and off, and one device 
can be made to control another. For 
example, the sensor (Red Two) could switch 
on an alarm plugged into Red One. You can 
also control and monitor the Red Boxes in 
real time (for example, remotely switching 
on or off a TV or a light - great fun), 
but the real advantage is that once set 
up, you can disconnnect your Beeb and 
leave Red Leader to look after everything 
itself. Using the Beeb in this way makes 
set up and control of the Red Boxes very 
easy whilst keeping the cost of the Red 
Boxes down to a reasonable level. 


Although you could probably set up a 
simple security system using only the 
menu, the possibilities expand enormously 
when you delve into Red Basic, the 
programming language for the Red Boxes. It 
is near enough to  'ordinary' Basic to 
ensure quick familiarity, but has several 
new commands for full control of the Red 
Boxes. I wrote a couple of small programs 
in a fairly short time. 


Although the manual lists all the Red 
Basic commands, a little more help would 
have been welcomed, and perhaps some 
practical examples. In particular, it 
doesn't tell you how to get your program 
running in Red Leader before disconnecting 
from your Beeb - just press the reset 
button on Red Leader. I also had problems 
downloading the terminal program into my 
Master. Acorn, you see, saw fit to set the 
Master's RS423 default baud rate to 1200 
baud, not the 9600 of a standard Beeb. Not 
GIS's fault, but I wasted a lot of time 
trying to track down this 'fault'. 


Among the more interesting Red Basic 
instructions are EVERY, TELL ‘and WHEN. 
EVERY is rather like a FOR-NEXT loop but 
provides a simple way of repeating a set 
of instructions at specified time 
intervals. TELL and WHEN could well be 
used together: WHEN one device sends a 
message (or signal) TELL another device to 
do something (switch on for example). 
There are several other commands and 
functions all designed to make the writing 
of your own control programs a relatively 
simple task. 


Red Boxes go much further than simple 
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on/off and timing devices. A lot of 
emphasis is placed on the security aspects 
and intelligence of the system. When 
messages are sent to Red Leader - say a 
sensor has been tripped - Red Leader ack- 
nowledges receipt of the message and if no 
acknowledgement is received the originat- 
ing box repeats the message. Conventional 
systems would just send a single message, 
and leave it at that, and thus could fall 
foul of a mains spike, or whatever. 


It is also worth mentioning the new 
Red Box modules under development. Of 
prime interest, I would Ssuspect, to all 
Red Box users is a real-time clock which 
will fit into Red Leader. This will have a 
battery back-up so you can unplug Red 
Leader once it's been programmed and 
re-situate it. I think this should have 
been fitted as standard, but it will cost 
around £1Ø-£15 as an extra. 


We can soon expect to see analogue 
devices for temperature measurement and 
light dimmer control, window contact 
switches, pressure mats and an alarm. This 
will be battery-backed so once triggered 
it can't be silenced by unplugging it. 
Additional Red Ones and Twos cost £34.95 
(plus £2 p&p) and it is hoped that the 
other modules will cost about the same. 


The analogue devices will enable the 
most fastidious control over room and 
house temperature and lighting. Heating 
can be switched on and controlled while 
there is movement in a room (don't fall 
asleep watching TV) and you could even 
monitor and record the temperature of a 
room during the course of a day or a_ week 
and program your heating system 
accordingly. 


Red Boxes have pulled together the 
technology for implementing a home or 
security control system, and packaged it 
so that everyone can use it. The only 
adverse factor I can see is the cost of 
fitting a house with Red Boxes, but with 
clever programming the system could 
control both an alarm and environment. 


I think Chris Curry has another winner 
here: an affordable and eminently prac- 
tical method of computer control. A matter 
for discussion in '81 - a reality in bai 


We are selling Red. Boxes with 5% 
members' discount - see Mail Order insert. 
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Machine 


MEG Bee 


File Security 
Techniques 


David Graham presents an encryp- 
tion machine that will hide program 
and data files alike away from prying 


eyes. 


With the rise of the hacker as high 
tech hero of the eighties, the question of 
computer security has received the full 
glare of media attention. But what can Jo 
Micro do to keep his own data secure? The 
program presented here goes some way 
towards a solution. 


Essentially it will encode any 
computer file stored on disc; whether this 
be a program, a text file, or some other 
data file. The file once encoded will be 
completely unreadable, and as far as I can 
See, completely uncrackable (?), unless 
you have the encryption program together 
with a unique 'password' to decode it. The 
file may then be stored, or sent in the 
post on disc, or passed over a telephone 
line using a modem to another user, 
without the fear that it could be read by 
anyone except the intended recipient. 


First of all, type in the program and 
save it away. When you run it, it asks for 
the filename of the file to be encoded. 
You may precede this with a drive number 
and directory name(s) in either DFS or 
ADFS format if you wish. If the program 
cannot find the file, it will inform you, 
and offer to catalogue drive zero. Once an 
acceptable filename has been given, you 
are prompted for a new filename to be used 
for the encrypted file. 


You are then asked whether you require 
"Random or Text coding". Essentially, two 
different types of encoding are catered 
for, and these will be discussed in a 
moment. Depending on which you select, you 
will be prompted for either a numeric or a 
text code. This will be the password which 
will subsequently decode your file when 
required, so do not forget it! 


Once this is entered, encoding will 
begin, a byte at a time, and each byte 
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read (except control codes below ASCII 32) 
will be scrolled in a screen window. As 
you will have gathered, Encoder produces a 
completely separate coded file, leaving 
the source file unchanged. For the utmost 
security, the source file should be 
deleted, and the disc compacted. But once 
you have done this you are completely at 
the mercy of your password. 


THE ENCODING TECHNIQUE 

At the heart of the encoder/decoder is 
the exclusive-OR operator (EOR). This has 
the extremely useful property that if you 
EOR two numbers A and B together, the 
result, C, will be unique, such that C EOR 
A will regenerate B. This means that the 
same password can be used to both code and 
decode a message. All we have to do is to 
make sure that the password, represented 
by A in this case, is not easily found. 


The encoder also uses a certain amount 
of filtering so that it does not encode 
(or attempt to decode) characters whose 
ASCII codes lie in the range @ to 31. 
These are often used as control codes, and 
if encoded would mean that the encrypted 
file could not be used on public networks 
which expect the user to supply text only 
messages. For some purposes you may find 
that you wish to reduce the encryption 
range still further. If you change line 
14ØØ to read: 

1400 IF bytein>31 AND bytein<128 BPUT# 

W$,FNcode:VDU bytein ELSE BPUT# W%, by 

tein 
then only characters in the range 32 to 
127 will be altered. But you should note 
that you can only alter this input filter 
at distinct bit positions (e.g. 32, 128 
etc.). And incidentally, you may notice 
that to make even filtering of this kind 
possible, not the whole of the character 
to be encoded is EORed with the code, only 


the lower five bits in fact: selected by 
an AND operation with &lF. 
To render the encoded file as 


difficult to crack as possible, one should 
not use the same byte as a code for each 
character of the source file. The Text 
option provides a simple way around this. 
You enter a text string as the password, 
and the characters from this are 
repeatedly used in sequence to provide the 
coding byte. The longer the password that 
you enter, the more secure will be the 
encoded file - but of course, the harder 
it will be to remember the password. 
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The other menu option uses an 
interesting property of the random number 
generator in the BBC micro to generate a 
different coding byte for EACH byte of the 
source file. The password given at the 
start of the program is used as a seed for 
the random number generator. The generator 
is then called for each byte of the source 
file. Fortunately, as soon as the 
generator is re-seeded with the same 
number it will produce an identical 
sequence of numbers, which can then be 
used to decode the file. 


The range of possible seeds at your 
disposal is very large - somewhere between 


10^-9 to 1979, with no likelihood of 
repetition for a given seed, even with 
very long files. In tests, I found no 


repetition pattern even after 4 million 
calls for a given seed. But if you wish to 
encrypt still further, you can pass a file 
through the encoder twice with different 
passwords. When decoding after multiple 
encryption, the order in which the 
passwords are used is not important - 
again this is a consequence of the 
properties of the EOR operator. 


Finally, a word of warning to Master 
users. The random number generator in 
Basic IV is different from that of Basics 
I and II. This only causes a problem if 
you wish to pass randomly encoded files 
between Master and Model B. The simple 
solution is to use BAS128 on the Master 
(or Compact). This disc-based Basic is 
derived from Basic II, and uses the same 
random number generator as the Model B. 


E——————————oS S» 
10 REM Program File Encoder 
20 REM Version B Ø.2J 
30 REM Author D.E.Graham 
40 REM Beebug November 1986 
50 REM Program Subject to copyright 
60 : 
100 ON ERROR GOTO 1470 
118 REPEAT:MODE7: PROCstart 
120 PROCfi le: PROCseed : PROCencode 
13@ PROCend: UNTIL A=81 
140 MODE7: END 


1000 DEFFNcode 

1010 -(bytein AND &EØ) + ((bytein AND & 
1F) EOR EVAL("FN"+name$) ) 

1920 : 
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1030 DEFFNrnd:-RND(31) 
1040 : 
1950 DEFFNtext :A=1-A* (NOT (A=LEN (text$) ) 


) 

1060 -ASC(MIDS$(text$,A,1)) AND &lF 

1970 : 

1080 DEFPROCnofile 

1098 VDU7:PRINT'"File not found" 

1108 PRINT"Press space to retry, C toc 
at disc "; 

1110 IF (GET AND &DF)<>67 CLS: ENDPROC 
1120 PRINT: VDU14:*CAT 

1130 PRINT'"Press space to re-try" 

1140 VDU15:A=GET:CLS: ENDPROC 

1150 : 

1160 DEFPROCstart 

1170 A=Ø:CLOSEHØ:FOR B-2 TO 3 

1180 PRINTTAB (9,B) CHR$131 ; CHR$141;"FILE 
ENCODER" 

1190 NEXT: VDU28,0, 23, 39,6: ENDPROC 

1200 : 

1210 DEFPROCfile:REPEAT 
1220 INPUT"Read filename: 
1230 R%=OPENIN (read$) 
1240 IF R%=Ø PROCnofile 
1250 UNTIL R%<>Ø 

1260 INPUT"Write filename: "writeS 
1270 W%=OPENOUT (write$):ENDPROC 

1280 : 

1290 DEFPROCseed 

1300 PRINT'"Random or Text coding (R/T) 


"read$ 


1310 REPEAT:C-GET AND &DF: UNTIL C=82 O 
R C-84 

1320 PRINTCHRSC 

1330 IF C-82 nameS="rnd": INPUT"Seed (an 
y number): "seed: R=RND (-ABS (seed) ) 

1340 IF C-84 name$="text":INPUT"text st 
ring "text$ 

1350 ENDPROC 

1360 : 

1370 DEFPROCencode:VDU28,Ø,23,39,12 

1380 REPEAT:bytein=BGETtt R$ 

1398 IFbytein-13 VDU10,13 

1400 IF bytein>31 BPUT4 W%,FNcode:VDU b 
ytein ELSE BPUT# W$, bytein 


1410 UNTIL EOF#(R%) :CLOSE40: ENDPROC 

1420 : 

1430 DEFPROCend: PRINT''"Coding complete 

" 

1440 PRINT"Press space to re-run, or Q 
to quit ";:A=GET AND &DF 

1450 ENDPROC 

1460 : 

1470 ON ERROR OFF:MODE7 

1480 REPORT: PRINT" at line ";ERL:END 
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BUILD YOUR OWN 
SIDEWAYS RAM 


William Fulton explains how to add 


sideways RAM to your machine with- 
out the cost of an expansion board. 


SIDEWAYS RAM 

Sideways RAM has been an extremely 
popular add-on for the BBC micro, finding 
such applications as printer buffers, the 
storing of ROM images, the development of 
ROM software, and even sophisticated 
silicon disc filing systems, like that 
provided by the Romit ROM. And while many 
excellent sideways RAM modules are 
currently available, it is quite feasible 
to construct an 8 or 16K module, which 
will plug directly into any vacant 
sideways ROM socket in the Beeb. The RAM 
required for this, the extremely versatile 
6264 8K static RAM, is obtainable at very 
low cost, and all you will need apart from 
this component are a couple of small 
hardware items, and an ability to solder. 


CONSTRUCTIONAL DETAILS 


The accompanying figures show the 


essential constructional details. As you 
can see, the 16K unit requires two RAM 
chips to be soldered one on top of the 


other. And while the 8K module can be 
Plugged directly into an existing ROM 
socket, a carrier device is nevertheless 
recommended. The carrier is essential in 
the 16K version for the correct handling 
of address line 13, used to determine 
which of the pair of 8K RAMs is being 
accessed at any given time. This is 
handled by one section of a logic IC 
(74LS04) mounted above the two RAM chips. 


On the 8K version, only two pins (26 
and 27) are not connected directly to the 
carrier, and these can either be cropped 
back or turned upwards to provide solder 
terminals. On the 16K version, pin 26 of 
the upper device and pin 27 of the lower 
must be similarly treated. Since all other 
pins are common, the two devices can 
effectively be soldered together 
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piggy-back. 
74LSØ4 package are cropped off, with pin 7 
linked to pin 14 of the 6264 using a short 
length of wire. The resistor between pins 
27 and 28 of the RAM chips on either 


All but pins 13 and 14 of the 


version should be 10k ohms, and 
1/8W size. 


ideally 


MINI PROBE 


CARRIER SOCKET 


Fig. 1 Exaggerated perspective view 
from top of the 8K RAM module. 


In both the 8 and 16K units, a flying 
lead must be attached to pin 27 of the RAM 
to facilitate Write operations. The Beeb's 
ROM sockets have no Read/Write line, 
because they were intended only for ROMs. 
The other end of this lead can be 
connected to any of the following three 
points to pick up the Write line: 


IC77 pin 8 
IC78 (8271) pin 10 
IC73 (ADC) pin 24 
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Figure 2 Exaggerated perspective view 
from the top of the 16K RAM 
module. 


The connection may either be soldered, or 
you may use a suitable connector (such as 
RS 424-175 or Maplin YX57M) to clip onto 
an IC leg. When complete, the device can 
be installed in any ROM socket, though 
preferably at a lower priority than the 
prime language ROM. With the Write lead 
connected, it is ready for testing. 


RAM-LOADING SOFTWARE 

It is not possible to load images 
directly into the sideways RAM from disc, 
but this job is easily performed with the 
short accompanying routine. This should be 
typed in, and saved away before use. When 


MINI PROBE 


FIG.3 


the program is run, it requests a filename 
of a suitable ROM image, and loads this 


directly into user RAM (starting at 
&3CØØ) . When a socket number is supplied 
(Ø-15), the RAM image is transferred to 
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the required sideways RAM. The program 
then tests the first four bytes of the 
sideways RAM image against the image held 
in user RAM, and informs the user if the 
load operation has been successfully 
performed. The program then prompts you to 
execute a Ctrl-Break to initialise the ROM 
image. Performing *HELP should then reveal 
the presence of the new image. 


If you are not sure which socket you 
have put the RAM module into, remember 
that the rightmost socket (which should 
normally hold Basic) is number 15, with 14 
to its immediate left, and so on. You 
should also note that some commercial ROM 
software is protected, and will not 
normally run from sideways RAM. 


Figure 4 Schematic diagram of 8 & 16K 
RAM modules. 


Unprotected ROMs may be copied to disc or 
tape using the ROM Controller program from 
Beebug Vol.5 No.3 or the extremely concise 
program by Bernard Hill in Beebug Vol.5 
No.2 page 30, but these programs should 
not be used to break the copyright 
conditions on any ROM-based product. 


If you have no suitable ROM image to 
hand, but would nevertheless like to test 
your RAM unit, you can still use the 
accompanying RAM Loader program. But when 
a filename is requested, just supply the 
name of any file that you have to hand, 
providing that it is not greater than 16K 
in length. You should get a Successful 
Load message if the RAM is ok, but the 
machine will probably hang after this, 
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ROM IMAGE LOADER 


Filename: PRNTBUF 

ROM slot: 14 

ROM image loaded ok 

Use Ctrl-Brk to initialise 


Filename: 


because it does not like what you have put 
into the RAM. Just switch off the machine 
to clear it. 


Once your RAM is functioning 
correctly, there are many uses to which it 
may be put, as already suggested. But if 
you are thinking of using it to store your 
own machine code utilities, we would 
recommend Bernard Hill's recent series on 
sideways RAM. See Beebug Vol.5 Nos 2, 3 
and 4. And of course, why stop at just one 
bank of RAM? 


TECHNICAL NOTES 

Most users will be familiar with the 
machine memory map (User Guide page 509), 
with one quarter of the memory map, from 
&8000 to &BFFF, allocated to sideways or 
paged ROMs. This means that each ROM in 
the machine resides at a common address, 
and a selection system, known as paging, 
is used to enable the currently valid ROM 
Socket. The ROM selection circuitry of the 
Beeb is controlled by a four-bit latch (IC 
76). This latch resides at the Sheila 
address &FE30, and is capable of defining 
Sixteen unique values for the currently 
selected sideways ROM number. In the 
standard Beeb only two of the four bits 
are decoded by IC 20 giving a total of 
four pages, each of which contains four 
further possible pages. For example IC52 
is normally considered to be paged ROM 15, 
but it can also be addressed as pages 11, 
WOR 3» 


Each ROM socket contains the necessary 


signals (address lines AØ to Al3, data 
lines DØ to D7 and two control signals 
Page Select and Output Enable). 


Fortunately, as may be seen from Fig.5, 
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the pin-out of the 6264 RAM is very close 
to that of the standard 2764 and 27128 
EPROMS, which plug directly into any 
sideways ROM socket. The only major 
difference being the need to provide a 
control signal to enable the writing of 
data to the RAM. 


8K SIDEWAYS RAM 

As may be seen from Fig.5, there are 
only three pinout differences between the 
6264 RAM and the 2764 EPROM: namely pins 
1, 26 and 27. The socket pin 26 will 
normally be connected to address line A13 


Figure 5 Pinouts of 6264 RAM, and 2764 
and 27128 EPROMS. 


if the machine is set up for 27128 EPROMs 
(S32 and S33 west). This is incompatible 
with the RAM chip pinout, and although the 
ROM sockets can be changed in pairs to 
provide a suitable signal on pin 26 using 
$32/33, this does restrict the other 
Socket of the pair to 8K capacity. A 
simpler solution, adopted on the 8K unit, 
is to isolate the pin from the socket and 
provide a suitable condition by connecting 
pin 26 to pin 28. 


16K SIDEWAYS RAM 

To provide the RAM equivalent of a 
27128 EPROM it is necessary to use two 
6264 chips, as no suitable single device 
presently exists. The Chip Select signal 
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on pin 26 of the RAM is used to provide 
selection between the two chips. One RAM 
device responds to addresses in the lower 
half of the sideways page (&8ØØØ to &9FFF) 
when Al3 is low, while the second device 
is active for A13 high (addresses &AØØØ to 
&BFFF). 


Functionally this is 


the ROM socket, and feeding it directly to 
pin 26 on one RAM, then inverting it 
before feeding it to pin 26 on the other. 
See Fig.4. A suitable device for inverting 
the address line is the  74LS04 hex 
inverter, 
prefer the lower power 74HCTØ4 high-speed 
CMOS part. 


10 REM Program ROM Image Loader 

20 REM Version B Ø.3C 

30 REM Author William Fulton 

40 REM Beebug December 1986 

5Ø REM Program subject to copyright 
60 : 

100 MODE7:HIMEM=&3CØØ:DIM Q% 50 

118 FOR A=] TO 2:PRINTTAB (7 ,3*A) CHR$13 
4CHRS141"ROM IMAGE LOADER":NEXT 

120 PROCassemble 

130 REPEAT:PRINT' 'CHR$131;"Filename:"; 
CHR$134; : INPUT""F$ 

140 PROCoscli ("LOAD "+FS+" 3CØØ") 

150 REPEAT: PRINT'CHR$131;"ROM slot:";C 
HR$134; 

160 INPUT""B%:UNTIL B%>-1 AND B%<16:PR 
INT'CHRS131;"Size in K bytes (8 or 16):" 
;CHR$134; : INPUT""S%:IFS%<>8 S$-16 

170 ?&7Ø=Ø:?&71=&3C:?&72=Ø:2&73=&8Ø:?& 
74=B%: 2&75=S5%*4:CALL copy 

180 IF FNtest PRINT'CHRS131"ROM image 
loaded ok":PRINT'CHR$134"Use Ctrl-Brk to 

initialise" ELSE VDU7:PRINT'CHRS$133"Ima 


achieved by 
taking the A13 line, present on pin 26 of 


though technology buffs may 
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198 UNTIL FALSE 


1800 DEF PROCassemble 
1Ø1Ø FOR I$-0 TO 2 STEP 2:P$-&A00:[ OPT 


1020 .copy:LDA &F4:STA &76:LDA &74 
1030 STA &F4:STA &FE30:LDX #Ø 

1040 .cloopl:LDY 40 

18050 .cloop2:LDA (&79),Y 

1060 STA (&72),Y:INY:BNE cloop2 
1070 INX:INC &71:INC &73 

1080 CPX &75:BNE cloopl:LDA &76 
1090 STA &F4:STA &FE30:RTS 

1100 ] NEXT: ENDPROC 


1120 DEFFNtest 

1130 Y$-B$:?&F7-&80 

1148 FOR C$-0 TO 3 

1150 ?&F6-C$:C$2&77-USR(&FFB9) 


1160 NEXT 
1170 =(!&3CØØ=!&77) 
1180 : 


1198 DEFPROCoscli (Q$) 
1200 $Q%=Q$:A%=Ø:X%=Q%M0D256: Y$-Q$DIV25 


1210 Q-USR(&FFF7) : ENDPROC 


SIDEWAYS RAM OFFER 


To assist members who wish to con- 
struct their own sideways RAM module as 
described in the accompanying article we 
have put together a complete kit of all 
the parts you will need - a suitable 
Soldering iron and solder are the only 
extras. The list of parts is as follows: 


Quantity Description 
2 6264 8K staic RAM 


IC 74LS04 logic chip 
Carrier board 

10k Ohm resistor 1/8W 
Connector 

Length of wire 


The complete set of parts as above 
is available for just £9.95 post free | 
direct from BEEBUG. | 


In addition, for those who do not 
wish to construct the RAM module them- 
selves, we are able to supply ready-made 
units at post-free price of just £13.95. 


In both cases send your order to 
BEEBUG RAM Offer, Dolphin Place, 
Holywell Hill, St Albans, Herts AL] 1EX. 
If paying by credit card please quote 
your card number and its expiry date. 


COMPUTER AIDED 


Geoff Bains, always quick on the 
draw, compares the latest CAD pack- 
ages to reach the Beeb market. 


A Computer Aided Design (CAD) package 


superficially appears similar to many 
drawing packages found on the Beeb. 
However, a CAD package stores information 


about each mark on the screen rather than 
relying on the screen data itself. For 
example, a straight line would be stored 
as two sets of co-ordinates together with 
a code to distinguish the type of line 
used. Simple art packages just produce the 
marks on the screen and then save the 
screen RAM. 


A Beeb CAD package may not compete 
with a professional system designed to run 
on a much more expensive system. However, 


for a small outlay a CAD package on a BBC 
micro is ideal for tasks such as designing 
circuit boards, and many others. 


A good CAD package has several 
features which distinguish it from those 
of lesser quality. Accuracy is important, 
particularly if the package allows parts 
of drawings to be magnified. In addition, 
a CAD package should be flexible and easy 
to use. 


We will 
packages for 
introduction (from Technomatic), 


look here, at three CAD 
the Beeb, one quite recent 
and two 


aimed particularly at the educational 
market (Educad and Micad). 
Title : Micad mx Dð 
Supplier :Heinemann Educational Books 
Ltd. 
22 Bedford Square, 
London WC1B 3HH. 
Tel. 01-637 3311 
Price : £31.95 
Micad is the oldest (1984) of the 


Software reviewed here, and is supplied on 
disc. It is really two programs in one; 
Micad 2D is used for conventional CAD work 
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Micad 3D is used for 3D wire frame 
images. Micad 3D is not really a 'CAD' 
package at all, but it is a nice inclusion 
for the exploration of technical drawing. 


whereas 


All the programs that go to make up 


Micad (except the printout routines) are 
written in Basic. This makes the whole 
package rather slow and flickery on the 


mode 4 screen used. 


The different drawing options of Micad 
2D are selected with the cursor from a 
menu of single letter commands down the 
Side of the screen. Each command is 
followed by a number, again selected with 
the cursor. This process is very tedious. 
If single letters and numbers are to be 
used, it is much easier and quicker to 
enter them from the keyboard. 


16.68 


243.66 


266.85 


Micad has commands for drawing 
straight lines and circles (full or 
dotted), and hatching (shading) areas with 
one of five patterns. Text can also be 
added to a diagram and parts of the screen 


'zoomed' for detailed work. 


For editing a Micad 2D drawing a 
Separate editing program is entered. This 
allows any point, line or arc to be moved 
or deleted. Again, the unfriendly nature 
of the menu system and the slow operation 
of Micad makes editing a process to avoid 
whenever possible. 


Another program module allows the easy 
addition of linear and angular dimensions 
to the diagram. This is a useful feature 
and the only really professional facility 
of the package. 
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Once a diagram has been created and 
edited to your satisfaction it can be 
printed out. Micad can cope with both 
simple screen dumps to Epson compatible 
printers, and plots to  Penman and 
Hewlett-Packard plotters. Although the 
manual doesn't cover it, it would be 
reasonably easy to link in your own screen 
dump routine. 


Micad 3D is similar to 2D in 
operation, although movement and drawing 
is now in three dimensions, projected on 
the screen. The direction of view of the 


object is selected from preset directions 
on the function keys or keyed in as 
three-dimensional co-ordinates. A useful 


feature is the 'extrusion' facility which 
copies a shape in one plane to another, 
and joins the vertices to make a solid. 


The 3D program uses single key 
commands from the keyboard - much better 
than 2D's menus. However, 3D is limited 
and the editing crude. It is easily 
outshone by Interactive 3D or 3D Zicon 
reviewed in BEEBUG Vol.4 No.1Ø and Vol.4 
No.9 respectively. 


The whole Micad package seems a 
strange combination of different ideas 
bundled together without much thought as 
to continuity or actual use. 


Title 
Supplier 


: Educad MX <> OX IX - 
: Edusoft, 
15 Tamworth Business Centre, 
Amber Close, Amington, 
Tamworth, Staffs B77 4DS. 
Tel. (05436) 76939 


Price : £92.00 


Although Educad is designed primarily 
as an introduction to CAD principles for 
schools, it has a decidedly home-made 
quality. The software is supplied on disc 
with a very poor 5Ø page manual. This 
lacks any useful structure and, for a 
product aimed at the educational market, 
this is a disaster. 


Once the manual has been digested 
sufficiently to start using the package 
(it takes 6 pages to find CHAIN"EDUCAD" is 
needed), the Educad package is little 
better than Micad. Most of the software is 
in Basic, and again it is slow. 
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Educad pictures are produced in mode 
4. The cursor is moved with either the 
cursor keys or joystick. The cursor 
accelerates when a cursor key is kept 
pressed down. This makes long movements 
fast but still allows delicate 
manoeuvring. 


Like Micad, the diagram drawing 
process is menu-driven and suffers 
accordingly. There are levels of sub-menu 


as well, and it is quite easy to get lost 
in the menu structure. 


Educad produces the requisite straight 
lines and arcs based on construction 
points and lines on the diagram which can 
be displayed or hidden as required. A 
large range of options for specific 
operations are catered for (e.g. drawing a 
line as a tangent to an arc), and all work 
on the diagram is automatically aligned 
with a (variable) grid to make the final 
drawing more accurate. For delicate work, 
a zoom facility is also provided, but the 
grid alignment makes work difficult at 
high magnifications. 


312.47 - 19.73 


Menus aside, editing is reasonably 
easy. The cursor is moved over an element 
and the command to delete that element 
type issued. The software works out how to 
remove it from the drawing store. 


Text of any size can be added. This is 
not just Beeb text but letters drawn out 
on the screen. Similarly, a range of 
preset symbols such as electronics 
components can be repeatedly positioned on 
a diagram. A character definer is supplied 
to produce your own fonts and symbols. 
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For computer aided manufacturing (CAM) 
facilities, Edusoft also have a 'EduCNC' 
package to take designs created with 
Educad, and generate data suitable for a 
CNC (Computerized Numeric Control) machine 
to actually make objects. 


Educad uses a much more professional 
approach to producing technical drawings 
than does Micad. However, it costs over 
twice the price. For nearly £100 the 
quality of presentation of this program is 
well below standard. 


= = 
Title :Novacad MX=> Dx Wx 
Supplier : Technomatic, 

17 Burnley Road, 

London NW10 1ED. 

Tel. 01-208 1177 
Price : £90.85. 


Novacad is also expensive. It requires 
both a 16K ROM and a disc. Novacad is the 
best of the bunch, both in terms of its 
ease of use and its flexibility. 


Drawings can be in modes Ø, 1, or 4 
depending on the memory available. Novacad 
can use B+ and Master shadow memory and an 
Aries board. 


The screen shows only a twentieth of a 
complete diagram at a time. It is a window 
onto the complete picture. You can move 
between windows by pressing the Ctrl key 
along with a cursor direction key. 


Technomatic DIRECT! Start Menu Draw 


1nes; urves; ars 
200M OFF: Window: 1,2 Scale: 1.0 
Levels: Ó H 3 4 5 6 7 Colour mii 


The Novacad cursor is not the small 
'x' of the other packages but a horizontal 
and vertical line running right across the 
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Screen, as used in most professional 
Systems. This is moved with the cursor 
keys in large steps and can be slowed down 
with the Shift Lock key for fine work. In 
the mouse version of Novacad, control is 
much finer all the time. 


There are eight 'levels' of a drawing, 
which can be displayed or hidden as 
required. The other levels can be used for 
construction lines or for, say, the 
reverse side design for a circuit board. 


All the picture elements - line, 
rectangle and arc - are easily produced 
with a few easy-to-remember  single-key 
commands. A useful feature is the recall 
of the last element at another position 
with the Copy key. 


Novacad also has a zoom facility, but 
the most useful feature is the 'icon' 
System. Predefined sections of a diagram 
can be called up and deposited at any size 
and orientated four ways onto the screen. 
Even more useful, a section of the screen 
can be captured as a icon, stored to disc 
and then re-used as often as needed. 

Text can be added to the diagram. 
Although this is only in the BBC micro's 
normal font and only in one size, the 
characters can be rotated. 


As with Educad, deleting lines is a 
question of pointing at them with the 
cursor. However, Novacad uses just the 
Delete key to do this without the long 
menu sequences of Educad. 


The one failing of Novacad is its 
production of hard copy. Only a simple 
Screen dump is provided for dot matrix 
printers, but Novacad can drive a plotter 
to provide drawings of a high quality for 
those with access to such devices. This 
aside, Novacad is excellent. It is 
flexible, genuinely easy to operate with- 
out much practice, and a pleasure to use. 


If money is of prime importance then 
Micad must be your choice. It | 145 
considerably cheaper than the others. 


However, you'd probably be better off with 
a good art package. For all the genuine 
CAD facilities you are likely to see or 
want on a BBC micro Novacad performs 
excellently, albeit for a high price. 
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„ BUSINESS. 
> GRAPHICS. 


1-133354 9, 


Alan Dickinson adds a powerful 
screen editor to his business graphics 


program. Controlling and changing 
your charts and graphs is now sim- 
plicity. 


I forget who coined thé term "WIMPS" 
but they meant it in jest, implying that 
Windows, Icons, Menus, and Pointers were 
necessary for the wimps who couldn't cope 
with the traditional user interfaces, 
obscure and unfriendly as they were. The 
term seemed to stick, and fortunately so 
have easy-to-use interfaces. 


Last month we published a program to 
produce high-quality graphs on the BBC 
micro. This month we are building on that 
program by adding a powerful menu-driven 
data editing system. This replaces the 
DATA statements of last month's program so 
that all aspects of the data display, 
including editing of the data, may be 


managed quickly and easily. It then 
becomes simplicity itself to modify some 
aspect of a display and rapidly re-draw 


the screen. 


ADDING THE EDITOR 

To add the editor to 
program, first type in this month's 
listing and save as for a normal program 
(just for safety) under the name GPROG2. 
Make sure, when entering the program, that 
you do not add any additional spaces, but 
do omit the space after each line number 
in the listing (included for readability), 
as the program is very tight on space. 
Basic I users should replace OPENUP by 
OPENIN in line 1710. Now, with the program 
Still in memory, proceed as follows: 


the original 


*SPOOL TEMP «Return» 
LIST «Return» 
*SPOOL «Return» 
Now load last month's program: 
LOAD"GPROGI" «Return» 
*EXEC TEMP «Return»? 
SAVE"GPROG" «Return» 
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The editor has now been appended to the 
original program and the new version saved 
as GPROG ready for use. This process 
becomes almost ridiculously easy if you 
use the Part-Merge/Save Utility from the 
October issue of BEEBUG (Vol.5 No.5). 


USING THE EDITOR 

When you now run the Business Graphics 
program, you will be presented with a 
series of menus with up to 13 choices on 
any one menu. All the menus work in the 
same way. A pointer can be moved to any 
menu item using the cursor keys, and then 
selected by pressing the Return key, or 
you can type in the first letter of the 
desired option. When specific values must 
be input, such as the chart title, an 
input window is opened in the bottom 
right-hand corner of the screen. The 
required information is then entered, and 
terminated by pressing Return. With any 


menu, you may press the "*" key and open 
up a *-command window. This enables 
commands such as *CAT to be executed. The 


function keys could also be programmed to 
enter any repetitive sequence of menu 
selections, and can indeed be re-program- 
med from within the program using *KEY. 


With all menus, pressing Escape will 
return you to the previous level of menu, 
while the key combination Ctrl/@ has been 
programmed to generate a true Escape 
condition. This returns to the highest 
level menu to provide the option of 
quitting the program. When first run, the 
program displays a menu with the options: 

File Edit 

Display Clear 
We will look at the use of each of these 
in turn. 
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THE FILE OPTION 

Four choices are provided, but only 
two of them, SAVE and LOAD, are available 
at this stage. These allow all the 
settings, including data, that you have 
entered via the editor, to be saved and 
re-loaded as required. The other two 
options, IMPORT and DUMP, will be 
described next month. 


THE EDIT OPTION 

This is the main choice and leads to a 
further menu allowing all aspects of the 
display to be entered and edited as 
required. Further sub-menus also appear in 
many instances. The Edit options (and 
sub-menus) are as follows: 


Titles: Title Edit main title 
Sub-Title Edit sub-title 
X-axis Edit X-axis legend 
Y-axis Edit Y-axis legend 

Columns: Legends Edit column names 
Switches Select which columns 


to display 


Edit variable names 
Select pattern for 
variable 

(range Ø to 255) 
Select which variables 
to display 


Variables: Legends 
Patterns 


Switches 


Numerical Data: 


Colwise Enter data for all 
variables,column by 
column 

Varwise Enter data for all 
columns, variable by 
variable 

Format of graph: 
Stack Cluster Bar 
Range ThreeD Line 
Grid: Select Grid or No Grid 
Display: Display selected graph 


DISPLAY AND CLEAR OPTIONS 

The main menu (and the Edit menu) both 
provide a Display option for convenience. 
The Clear option clears all current data 
and other settings. 


GENERAL COMMENTS 

You should read the above notes, and 
experiment thoroughly with the use of the 
editor, in conjunction with the 


18 


MAU KER EEE ETTER RETA I EE PERES KEENE RS e RS RS EE SE LE RST EE EE EEE My 


description contained in part one 
published last month. All the graph 
facilities are exactly as first described, 
but are now controlled from screen menus. 
Remember that any chart display may have 
up to 13 columns, and each column may 
contain up to 7 variables. Which columns 
and variables are displayed are determined 
by the 'switch' settings (see above). 
Experimenting with all the options 
available will help you to make the most 
of the program's power and flexibility. 


Next month, the final part of this 
series will deal with the two remaining 
graph options, 3D charts and pie charts, 
and provide a means for data to be 


imported to the Business Graphics program 
from other data files. 


EDITOR 


=> Titles 
Columns 
Variables 
Numerical Data 
Format of Graph 
Grid 
Display 


* Command 


.mikie 


V.postbag 
V.showS 
V.spainé 


: Show4 
“SPain5 
E weather 


1Ø REM Program GPROG2 

20 REM Version Bl.2 

30 REM Author Alan Dickinson 

40 REM BEEBUG December 1986 

5Ø REM Program subject to copyright 


100 MODE4: PROCzi 

110 VDU23,240,&88F8;&8888;&F8;0; 23,241 
,&D870;&D888;&70;0;23,242,& 7020; &70F8; &2 
0;0;23,243,&F8F8; &F8F8; &F8;0; 

120 DIMCS$ (12) ,C% (12) ,VS (6) ,V$ (6) ,H$ (6) 
,N(12,6) :p$=STRINGS (20," "):PROCClr2 

130 ONERRORPROCze 

140 REPEAT: REPEAT: Q%=FNzm("BEEBUG GRAP 
H MODULE","File~ Edit” Display” Clear", ø) 

15@ IFQ%=ØPROCfi les: ELSEIFQ%=1PROCedit 
s: ELSEIFQ$-2PROCdis:A$-GET: ELSEIFQ%=3PRO 
CELIE 

168 UNTILQ%<Ø 

17Ø UNTILFNzZm("QUIT?","Yes”No",Ø)=Ø 

18Ø *FX4 
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19Ø *FX22Ø,27 
2ØØ MODE7: END 
210 : 

1000 DEFPROCfiles:LOCALQ$:Q$-FNzm("FILI 
NG SYSTEM", "Load”Save”Import”Display Dum 
p" ,Ø) 

1010 IFQ%=ØPROCload:ELSEIFQ%=1|PROCsave: 
ELSEIFQ$-2PROCimp: ELSEIFQ$-3PROCdump 

1020 ENDPROC 

1030 DEFPROCedits:LOCALQ% 

1040 REPEAT:Q$-FNzm("EDITOR","Titles^Co 
lumns^Variables^Numerical Data^Format of 

Graph^Grid^Display",Q$) 

1050 IFQ%=ØPROCedtitles: ELSEIFQ%=1PROCe 
dxdivs: ELSEIFQ$-2PROCedvars: ELSEIFQ$-3PR 
OCeddata: ELSEIFQ%=4PROCedtype: ELSEIFQ3=5 
PROCedgr id: ELSEIFQ%=6PROCdis:A%=GET 

1060 UNTILQ%<Ø:ENDPROC 

1070 DEFPROCedtitles:LOCALQ% 

1Ø8Ø REPEAT:Q£-FNzm("TITLES","Title^Sub 
-Title^X-axis^Y-axis",Q$) 

1098 IFQ%>=0S (&980+0%* 32) =FNzc ("Text",5 
(&98040$*32) ,32) :Q3=OQ3+1 

1100 UNTILQ%<@: ENDPROC 

1118 DEFPROCedxdivs:LOCALQ% 

1120 REPEAT: Q%=FNzm ( "COLUMNS" , "Legends" 
Switches" ,Q%) 

1130 IFQ$-0PROCedxlegs 

1140 IFQ%=1PROCedxsw 

1150 UNTILQ%<Ø:ENDPROC 

1160 DEFPROCedxlegs:LOCALQ$ : REPEAT: PROC 
atx:Q$-FNzm( "LEGENDS" ,Z$,02) 

1170 IFQ$»-0CS (Q%) -FNzc ("Column" ,C$ (02) 
78) :Q$-0241 

1180 UNTILQ%<Ø:ENDPROC 

1190 DEFPROCedxsw: LOCALQ$ : REPEAT: PROCat 
x: Q%=FNzm (" SWITCHES" ,Z$ ,Q%) 

1200 IFQ%>=ØIFC% (Q%)=ØC% (Q%) =1ELSEIFQ%> 
=ØC% (QZ) =Ø:0%=0%+1 

121Ø UNTILQ%<@: ENDPROC 

1220 DEFPROCatx:LOCALJ$:7Z$z"":FORJ$-0TO 
12:282294CS$ (JT) +" (" 

1230 IFC%(J%) >@ZS=ZS+"0N) ~“"ELSEZS=ZS+"0 
FF)^" 

1240 NEXT: ENDPROC 

1250 DEFPROCedvars:LOCALQ$ : REPEAT 

1260 Q$-FNzm("VARIABLES","Legends"^Patte 
rns^Switches",Q$£) 

1270 IFQ$-0PROCedvlegs:ELSEIFQ$?-1PROCed 
vpat: ELSEIFQ$-2PROCedvsw 

1280 UNTILQ%<Ø:ENDPROC 

1290 DEFPROCedvlegs:LOCALQ$: REPEAT: PROC 
atv:Q$-FNzm("LEGENDS" ,Z$ ,02) 

1300 IFQ$»-0VS$ (Q%) =FNzc ("Variable",VS(Q 
%) ,9) :Q3=Q3%+1 

131Ø UNTILQ%<Ø:ENDPROC 

132Ø DEFPROCedvpat : LOCALQ% : REPEAT: PROCa 
tv:Q3=FNzm ( "PATTERNS" ,Z$ ,Q%) : IFQ3>=ØH% (Q 
$) =FNzn ("Pattern",H$ (Q%) , 8,255) :Q3=03+1 

1330 UNTILQ%<Ø:ENDPROC 
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1340 DEFPROCedvsw: LOCALQ%: REPEAT 

1350 PROCatv:Q%=FNzm("SWITCHES" ,Z$,0%) 

1360 IFQ%>=ØIFV% (Q%) =ØV% (Q%) =1ELSEIFQS> 
=ØV% (0%) =Ø:0%=0%+1 

1370 UNTILQ%<Ø: ENDPROC 

1380 DEFPROCatv:LOCALJ$:Z$-"" 

1398 FORJ$-0TO6:2$-Z94V$ (JS) +" (" 

1400 IFV%(J%) >@ZS=ZS+"ON"ELSEZS=Z$+"OFF 


1410 Z$=2$+" p="+STRS (HB (J%) ) +") ~" 

1420 NEXT: ENDPROC 

1430 DEFPROCeddata:LOCALQ% 

1440 Q$-FNzm("DATA","Colwise^Varwise",0 
) : IFO$-0PROCedncol (-1) ELSEIFQ%=1PROCednv 
ar (-1) 

1450 ENDPROC 

1460 DEFPROCedncol (v%) : LOCALJ% ,Q% 

1478 REPEAT: IFv%=-1PROCatx: IS=ZS: ELSEIS 
="":FORJS=ØTO12: IS=IS+CS$ (J%)+" = "+STRS( 
N(J$,v$) ) *""" : NEXT 

1488 Q$&-FNzm("COLUMN" , IS ,Q%) 

1499 IFQ%>=ØANDv%=-1|PROCednvar (Q%) 

1500 IFQ2$»-0ANDv$»-]PROCeddata2 (Q%,v%) : 
Q%=Q%+1 

151Ø UNTILQ%<Ø: ENDPROC 

1520 DEFPROCednvar (c%) : LOCALQ%,J% 

1530 REPEAT: IFc%=-1: PROCatv: IS=ZS$: ELSEI 
$z2"":FORJ$-0TO6:1$-IS4VS(J$)4" = "+STR$( 
N(c$,J2)) *""":NEXT 

1540 Q%=FNzm("VARIABLE",IS,0Q%) 

1550 IFQ%>=ØANDC%=-1PROCedncol (Q%) 

1560 IFQ%>=ØANDC%>-1PROCeddata2(c%,0Q%): 
Q3=03+1 

157Ø UNTILQ%<Ø:ENDPROC 

158Ø DEFPROCeddata2(c%,v%) 

1598 N(c$,v$) =FNzn ("VALUE",N(c%,v%) ,-99 
99999 ,9999999) : V$ (v$) =1 :C% (c$) =1 

1600 ENDPROC 

1610 DEFPROCedtype:LOCALQ% : Q%=FNzm ("FOR 
MAT","Stack Cluster^Bar^ Range ThreeD^Lin 
e^Pie",Z£) : IFO%>=0Z3=0% 

1620 ENDPROC 

1630 DEFPROCedgrid:LOCALQ% 

1640 Q$-FNzm("GRID","No Grid”Grid",G%+1 
) : IFQS>=ØG3=0% 

1658 ENDPROC 

1660 DEFPROCclr:IFFNzm("CLEAR ?","Yes^N 
o",0) =ØPROCC1r2 

1670 ENDPROC 

1680 DEFPROCClr2:LOCALJ$:$8&980-"":S&9AQ 
=" " : S&9CØ=" " : S&9EØ=" " : FS=" " : f$z" " : posu 

1698 FORJ$-0TO12:C$ (J£) =" ":CS(J 
$) 2"":C$ (JS) =Ø: NEXT: FORJ$-0TO6: VS (J%) =ST 
RINGS (9," "):VS$(J$)z"":V$ (5%) =O: HS (7$) -J 
%: NEXT 
1700 Z$-0:G$-1:ENDPROC 
1718 DEFPROClo0ad:F$=FNzc ("FILENAME",FS, 
8) : IFFS=""ENDPROC: ELSEA%=OPENUP (FS) 

1720 INPUT4A$,$&980,98&9A0,S$89C0 , S&9EQ , Z 
$,G$ 
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1730 FORJ%=ØTO12: INPUT#A3%,C$ (J$) ,C% (J%) 
: NEXT: FORJ%=ØT06: INPUT#A% , VS (J%) ,V% (J%) , 
H3 (J&) : NEXT 

1740 FORJ3=ØTO6: FORK3=ØTO12: INPUT#A3,N( 
K%,J%) : NEXT: NEXT 

1758 CLOSE#A%: ENDPROC 

1760 DEFPROCsave:FS$=FNzc ("FILENAME",FS, 
8) :A$-OPENOUT (F$) : PRINT#A%,$&980,S&9AG,S 
&9C0,S&9E0,22$,G$ 

1770 FORJ$-0TO12: PRINT#A%,CS (J%) ,C$ (J%) 
: NEXT: FORJ3=ØTO6: PRINTHAS,VS (J%) ,V3 (J) , 
H3 (J$) :NEXT 

1780 FORJ3=ØT06:FORK%=ØTO12:PRINTHA%,N( 
K$,J$) : NEXT: NEXT 

1790 CLOSEHA%: ENDPROC 

5000 DEFPROCzi:*FX4,1 

5001 Z$=STRINGS(255," "):I$=Z$:Q0$=Z$ 

5010 *FX220,0 

5020 VDU23,255,&2C38; &03E6; &E603; &382C; 
23,254,0; &80FF; &FF80;0;23,253,&C300; &FF ; 
0;0;23,0,&200A;0;0;0; : ENDPROC 

5030 DEFPROCze: PROCzw (32, "ERROR "+STRS ( 
ERR) ) : REPORT: PRINT ' ' "Press ESCAPE to exi 
t"'"Press RETURN to continue":A%=GET 

5040 *FX220,27 

5050 *FX4 

5060 IFA$-27VDU26,4:CLS: REPORT: PRINT" @ 

"SERL:END 

5070 *FX220,0 

5080 *FX4,1 

5090 ENDPROC 

5100 DEFPROCzo: LOCALX$ , Y3: $&900-FNzc ("* 
Command" , "" , 32) :CLS:VDU1 4: X3=@: Y3=9: CAL 
L&FFF7: VDU1 5: ENDPROC 

511Ø DEFPROCzw(Z%,Z$) :LOCALX%,Y%:X3=127 
1-(2$*2)*32:Y$2324:VDU24,X$;Y2$;1279;Y$*7 
6; : GCOLØ, 129:CLG: VDU26: GCOLG, 1 : MOVEX$ , Y% 
:DRAWX$,0:DRAWI279,0:DRAWl279,Y$ 

5120 VDU24,X$*4;4;1275; 324; :GCOL0,128:C 
LG: VDU28, 38-2%, 21 , 38, 20: COLOUR8 : COLOUR] 2 
9 

5130 PRINTTAB ( (Z$-LEN (Z$) )/2,0) Z$; : VDU2 
8,38-22,30,38,22:COLOURI : COLOUR] 28: CLS: E 
NDPROC 

5140 DEFFNzm(TS,Q$,D%) :LOCALIS,I$,J$,K$ 

5150 VDU26:COLOURI28:CLS:VDU24,0;940;12 
59;1015; :GCOL0,129:CLG: VDU26 , 4: GCOLO , ] :M 
OVEØ, 960: DRAWØ, 16: DRAW1259, 16: DRAW1259,9 
60 

5160 COLOUR@:COLOUR1 29: PRINTTAB (2Ø-LEN ( 
TS) /2,1) ; T$; :COLOUR! : COLOUR] 28: VDU28 , 1, 3 
1,38,4:J%=-1 

5170 REPEAT:K%=INSTR(Q$,"7") : IFK$20K2-L 
EN (Q$) +1 

518Ø J%=J%+1:VDU31,0,J%%2,32,32,32:PRIN 
TLEFTS (Q$,K3-1) ; : IS-IS4LEFTS (QS, 1) : IFK%< 
LEN (Q$) O$=MIDS (Q$,K%+1) ELSEQS="" 
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5199 UNTILOQSz"":K$-D$:IFK$»J$K$-K$MOD(J 
$41) 

5200 VDU31,0,K$*2,&FFFE; : REPEAT: I$-GET: 
IFI$»96ANDI£«123I$-I$AND223 

5210 VDU31,0,K$*2,32,32 

5220 IFI$-ASC"*"PROCzOo:VDU28,1,31,38,4 

5230 IFI%=139ANDK3>ØK%=K%-1 

5240 IFI$-138ANDK$«J$K$-K$-*] 

5250 IFINSTR(IS,CHRS(I£)) »UK$-INSTR(IS, 
CHRS (I$) ) -1:1$213 

5260 VDU31,0,K$*2,&FFFE; :UNTILI%=130RI% 
-27:IFI$-13THEN-K$ELSE--] 

5270 DEFFNzr (D$,I$,W%,P%) : $89ØØ=IS+STRI 
NGS (W$," "):PRINTTAB (Ø, Ø) LEFTS ($8&9ØØ,W3) 


P 

5280 REPEAT:VDU31,P%,1,253:A%=GET 

5290 VDU31,P%,1,32: PROCzk: VDU31,P%,1,25 
5 

5300 UNTILA%=1 30RA%=27 

5310 FORP%=&9ØØ+W%T0& 9ØØSTEP-1 

5320 IF?P$-320R?P$-13?P$-13:ELSEP$-0 

5330 NEXT: IFAS=27THEN=ISELSE=S& 900 

5340 DEFPROCzk 

5350 IFA%=130RA%=27ENDPROC 

5360 IFA%=136ANDP%>ØP%=P%-1:ENDPROC 

5370 IFA$=137ANDP%<W%-1P%=P%+1: ENDPROC 

5380 IF(A$»135ANDA$«140) OR (A%<26) ENDPRO 
G 

5390 IFA$-127$ (&900* P$) =$ (&9Ø1+P%) : PRIN 
TTAB(0,0) $&900;" ":ENDPROC 

5400 IFA%=135$(&9ØØ+P%)=" "+S (&9ØØ+P3) : 
? (&9Ø1+W%) 213: PRINTTAB (0,0) $&900; : ENDPRO 
G 

5410 IFA$-126A$-253 

5420 ?(&9ØØ+P%)=A%:VDU31,P%,Ø,A%:P%=P%+ 
1:IFP$»5-W$P$-P$-] 

5430 ENDPROC 

5440 DEFFNzc (D$, I$,W%) : PROCzw (W$ DS) :=F 
Nzr (D$, I$,W%, ø) 

5450 DEFFNzn (D$,V,L,H) :LOCALVS, P$, S$,D$ 


D 

5460 PROCzw(24,DS) : $&9ØØ=STRS (V) : P$-0 

5470 S&900-FNzr (DS,$&900,12,P%) :CLS: PRI 
NT$&900:8S$21:V20:P$-20:D$-0:D-1 

5480 IF?(&9004*P£$)-ASC"-"S$--1:P$-1 

5490 IF? (&900+P%) =1 3THENGOTO5549 

5500 IF? (&9ØØ+P%)=ASC"."ANDD3=ØD%=1|:P%= 
P%+1:G0T0549Ø 

5519 IF? (&9ØØ+P%)<480R? (&9ØØ+P%) >57PRIN 
TTAB (Ø,3) "Non-numeric value";:GOTO5470 
5520 IFD%=QV=V* 10+? (&9ØØ+P%) -48: PS=PS+1 
: GOTO549Ø 

5530 D=D/1Ø:V=V+(? (&9ØØ+P%) -48) *D: P$-P$ 
+1:60T0549Ø 

554Ø V=V*S%:IFV<L ORV>H PRINTTAB (0,3) "0 
UT-OF-RANGE"'" ";L'" ";H:P$-0:GOTO5470 


5550 -V 
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Nadine Filing System 


me A VOR 


Sorting Data 
Files 


If sorting disc files takes hours, find 
out how Jan Stuurman's program 


reduces this to minutes. And it can be 
used with the Filer database pro- 
gram. 


Sorting data stored in data files on 
disc can be a very time-consuming 
operation unless the method used is 


carefully thought out, as users of the 
BEEBUG Filer database program may already 
have found to their cost. In this article 
I want to discuss the principles of fast 
file sorting, and show how these can be 
implemented to provide a vastly improved 
sort program for use with BEEBUG Filer. 


PRINCIPLES OF GOOD FILE SORTING 

The first point to recognise is that 
accessing discs to read and write records 
in a file is actually quite time-consuming 
compared with the Beeb's internal rate of 
working. Thus it makes sense to minimise 
this aspect by performing as much of the 
sorting as possible in main memory. This 
is what the program listed here does in 
contrast to Filer which performs all its 
sorting on dise. 


Secondly, any sort can be speeded up 
by concentrating on the 'key' field alone 
rather than complete records. By 'key' we 
mean that part of each record (often just 
a few characters) which is to be the basis 
of the sort. The technique is to read each 
record in turn, extract from it the key, 
and save in memory just the key and a 
simple reference or pointer to the whole 
record on disc. This reference is often 
called a 'tag' and a sort which uses this 
idea is called a 'tag' sort. 


Finally, we must employ an efficient 
sort algorithm to sort the key fields in 
memory. The re-ordered keys (with their 
pointers) can then be used to read each 
record from the original file, using 
direct access, and write it out to a new 
file in the new order. There is no single 
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'best' sort technique, as the efficiency 
of any sorting algorithm is a function of 
the initial degree and form of disorder of 
the file to be sorted. The Shell sort 
employed here is well known, and together 
with the so-called "Quick" sort is 
generally considered to be of the 
fastest sorts around. 


one 


There are two limitations on the whole 
process; it must be possible to fit all 
the keys and pointers into, available 
memory (though this is not insuperable, by 
splitting, sorting and merging longer 
files), and there must be sufficient disc 
space for both the original and re-ordered 
files, though these can be on different 
discs or surfaces. These principles are 
embodied in the Filer Sort program below. 


THE FILER SORT PROGRAM 

The program listed with this article, 
FILERS, is designed to sort any Filer 
database file. The routines could also be 
adapted to form a sort program that will 
equally well deal with other data files. 


from the 
but essential 


When typing the program in 
printed listing, omit all 


spaces to maximise the amount of free 
memory. Basic I users should also replace 
OPENUP by OPENIN at lines 8020, 9Ø5Ø and 
11029. 

To make the most of the memory 
available, the program should be run with 


PAGE set to &1400 (as with the other Filer 
programs) unless running on a Master or 
Compact where PAGE is at &EØØ anyway, and 
it will always reserve as much memory as 
possible above HIMEM and below the mode 7 
screen (&7C00). 


BEEBUG FILER SORT ROUTIME 


Old file: BANK Neu file: BANKI 


SORTFIELD COMPOSITIOM 
Widtt Start 


Length Total 


(€=1006 
DATE 6 1 6 6 
CHEQUE 4 1 4 10 


Descending order 
Confirm CY/ND: _ 


for ascending order 
for descending order 


Press 'A' 
or 'D' 


i ee 


bx 


; 


After both old and new filenames have 
been entered (the new file is "overwrite 
protected"), up to 6 data fields of the 
original file may be used to create a set 
of keys in memory ready to be sorted. 


Enter the name of each key field in 
turn, and either the entire field ( by 
pressing Return) or just part of the field 
(enter start position and length) can be 
used to build up a complete 'sort field' 
for the file. The total length of the sort 
field depends on the memory available 
(above HIMEM) and the number of records on 
file. For example, with PAGE-&1400 and 300 
records, the maximum length of the sort 
field is 64. The program displays this 
maximum length, keeps a running total 
length, and prints an error message if the 
sort field becomes too large. 


To some extent, the length of the sort 
field will affect the time taken to sort 
the file, so it makes sense to keep this 
as short as possible. You might allow up 
to 20 characters for a 'NAME' field, but 
probably the first six or so characters 
would be sufficient to sort the file by 
NAME alphabetically. 


When sorting on a single field, the 
user may choose between an alphabetic or 
numeric sort. Numeric sorts on more than 
one field can only be accomplished by 
successively sorting the file for each 
field separately, starting with the field 
of lowest priority. The sorting algorithm 
used is stable when sorting in ascending 
order: it preserves the relative order of 
records with equal keys. Note: a numeric 
sort will not work correctly if the 
numbers have been written in scientific 
notation (e.g. 1.22E-3). 


Finally, the user has to specify the 
order, either descending or ascending, in 
which the records should be sorted. Note 
that in this context, descending means 
starting at the highest (or smallest) and 
descending to the lowest (or largest) - 
this would be equivalent to a normal 
alphabetical ordering, for example. 


The procedure, PROCsort, performs the 
actual sorting in three stages, each 
indicated in turn on the screen. 

1. Read the old file from disc and, 
using the sort field information given by 


the user, create a tag file in memory. A 
three-figure (001-999) record pointer is 
22 


appended to each entry in the tag file. 

2. Sort the file in memory using the 
Shell Sort algorithm (see D.E.Knuth, The 
Art of Computer Programming, Volume 3, 
published by Addison-Wesley). This 
algorithm has an acceptable running time 
which does not depend very much on the 
initial ordering of the file. 

3. Using the pointers that were 
affixed to the records of the tag file, 
records are read in from the old file (on 
disc) and written to the new file in the 
new order. 


The program can sort BEEBUG Filer data 
files of up to 999 records. The following 
timings in seconds, using an Opus Challen- 
ger disc unit, will give some indication 
of the speeds that can be achieved. Total 
sort times are given in the last colum. 


Read 
file 
(secs) (secs) 


Sort Writing Total 


new file time 
(mins) 


(secs) 


16 48 
38 1ØØ 
83 217 
216 519 


1:14 
2:38 
5:43 
13:38 


PROGRAM NOTES 

Lack of space precludes more than a 
brief description of the program this 
month. However, PROCfilenames deals 
initially with the file specifications, 
reading the file description record (FDR) 
from the old file and creating a new file 
of the right length and FDR. PROCsortfield 
then obtains the details of the sort keys 
to be used, storing the information in 3 
arrays sfld$, strt% and len’. 


The main procedure is PROCsort. This 
uses the details already collected to form 
a template (s$ at line 11930) which with 
the aid of the EVAL function extracts the 
relevant parts of each record as it is 
read into memory. The sort specification 
is also constructed as a string (t$ at 
line 11129) and EVALuated to compare keys. 
Finally,records are read from the old file 
in the revised order and written out to 
the new file. 


Next month we will provide a detailed 
description of this useful program so that 
it can be readily modified and used to 
Sort other data files that you may have 
Stored on disc. 
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1Ø REM PROGRAM FILERS 

2Ø REM VERSION B.2 

3Ø REM AUTHOR Jan Stuurman 

4Ø REM BEEBUG Dec 1986 

5Ø REM PROGRAM SUBJECT TO COPYRIGHT 


1ØØ MODE7:HIMEM=PAGE+&18ØØ 
11Ø ONERRORPROCerror : END 
12Ø PROCsetup 
13Ø PROCtitle 
14Ø PROCinput 
15Ø PROCsort 
16Ø PROCclose 
17Ø VDU26: END 
18Ø : 
1ØØØ DEFPROCsetup 
1Ø1Ø rec=1:FDR=256 
1020 BS=HIMEM:maxf=12:maxs=6 
1Ø3Ø DIMrecord$ (maxf) , field$ (maxf) ,widt 
h$(maxf),os 22 
1040 DIMsfld$ (maxs) ,Strt% (maxs) , len$ (ma 
xs) 
1958 ENDPROC 
1969 : 
2000 DEFPROCtitle 
2010 FORI=ØTO1|: PRINTTAB (3, I) CHRS$14]CHRS$ 
129CHR$157CHR$131"BEEBUG FILER SORT ROUT 
INE "CHR$156:NEXT 
2Ø2Ø ENDPROC 
2Ø30 : 
3ØØØ DEFPROCinput 
3Ø1Ø REPEAT 
3020 PROCwindow] :CLS: PROCwindow2 
3030 PROCfilenames 
3040 PROCsortfield 
3050 IFsf=|PROCalfnum 
3060 PROCascdec 
3070 UNTILFNask ("Confirm (Y/N): ")<3 
3080 ENDPROC 
3090 : 
4000 DEFPROCfilenames 
4010 REPEAT 
4020 PRINTCHRS1|3Ø"Enter name of file to 
be sorted:"'CHRS131; 
4030 INPUTTAB (15) ""op$: PROCopen (op$) 
4040 UNTILF]: PRINT 
4050 REPEAT 
4060 PRINTCHR$130"Enter new name of sor 
ted file :"'CHRS131; 
4070 INPUTTAB (15) ""np$: PROCnopen (np$) 
4080 UNTILF2: PRINT 
4090 PROCwindow] : PRINTCHRS134"0ld file: 
"CHRS131 ;opSTAB (20) CHR$134"New file:"CHR 
$131;np$ 
4100 ENDPROC 
4110 : 
5000 DEFPROCsortfield 
5010 PRINTTAB(9,3)CHR$134"SORTFIELD COM 
POSITION"TAB (9,5) CHR$133"Field"SPCe"Widt 
h Start Length Total" 
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5020 PRINTTAB (32,6) CHR$134"«z" ;max1 

5030 lf-0:sf-0Ü 

5040 REPEAT: PROCwindow2: REPEAT 

5050 PRINTCHRS13@"Enter field name";:IF 
Sf»ÜPRINT", or <RETURN>"'CHRS1|3Ø"to end 
composition"; 

5060 PRINT":"CHR$131;:INPUT""sf1d$ 

5070 UNTIL (s£»0ANDsf1d$-"")ORFNfwidth (s 
fld$) 

5080 IFsfld$-""GOTO5250 ELSEsf=sf+1 

5098 sfld%(sf)=R:strt%(sf)=l:len%(sf)=F 
Nfwidth (sfld$) 

5100 PROCwindowl:PRINTTAB (Ø ,sf+6) CHR$13 
l;sfldSTAB(]6-LEN(STR$ (len% (sf) ) )) CHR$13 
4;len$ (sf) : PROCwindow2 

5110 REPEAT 

5120 PRINTCHRS13@"Enter start position 
in field or press" 'CHR$130"«RETURN» for 
entire field:"CHRS131; 

5130 INPUT""strt$:strt$-VALstrt$ 

5140 UNTILSstrtS$-""OR(strt$»0ANDstrt$£«-1 
en$ (sf) ) 

5150 IFstrtS<>""strt%(sf)=strt% 

5160 PROCwindow] : PRINTTAB (23-LEN (STR$ (s 
trt%(sf))) ,sf£+6)CHRS131;strt% (sf) : PROCwi 
ndow2 

5170 IFstrt$=""G0T0523Ø 

5180 REPEAT 

5190 PRINTCHRS1|3Ø"Enter length of field 
block or press"'CHRS1|3Ø"<RETURN> for res 
t of field :"CHRS131; 

5200 INPUT""len$:len$-VALlen$ 

5210 UNTILlen$-""OR (len%>ØANDlen%+strt% 
(sf)<=len%(sf)+1) 

5220 IFlen$<>""len%(sf)=len% ELSElen$(s 
f)=len%(sf)-strt%(sf)+1 

5230 IFlf+len%(sf)>maxl VDU7:PRINTTAB (8 
) CHR$129"SORTFIELD TOO LONG":GOTO5180 EL 
SElf=1f+len% (sf) 

5240 PROCwindow!: PRINTTAB (30-LEN (STRS (1 
en$ (s£))) ,s£*6) CHR$131;len$ (sf) TAB (38-LE 
N(STR$ (1f)) ,S£+6) CHR$134;1f 
5250 UNTILsf-maxs ORsfld$="" ORlf-maxl 
5260 ENDPROC 
5270 : 

6000 DEFPROCalfnum 
6010 PROCwindow2:PRINT'CHR$130"Press 'A 
' for alphabetic sort"'TAB(3)CHR$130"or 
'N' for numeric sort :"; 

6020 REPEAT *FX15 1 
6030 A-INSTR("AaNn" ,GETS) : UNTILA 
6040 PROCwindow]1 : PRINTTAB (11,9) CHR$131; 
6050 IFA>2t$="VAL":PRINT"Numeric sort" 
ELSEt$-"":PRINT"Alphabetic sort" 

6060 ENDPROC 
6070 : 

7000 DEFPROCascdec 
7010 PROCwindow2:PRINT'CHR$130"Press 'A 
' for ascending order" 'TAB(3)CHR$130"or 
'D' for descending order :"; — 47 
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Meo AA 


PROGRAM 
CRUNCHER 


Insufficient memory for your pro- 
grams can be a problem even on the 
Master and Compact. Jan Stuurman's 
short utility offers one solution, by 
squeezing your Basic programs into 
the smallest possible space. 


The Basic program listed below will 
allow you to squeeze just a little more 
from your machine by 'crunching' a program 
to occupy a smaller space. It does this by 
combining statements to form longer lines, 
reducing the number of line numbers and 
hence the memory space required. Quite 
useful savings can be made in this way, 
particularly with longer programs. 


Having typed the program in, save it 
to tape or disc before running it. Once 
the code is assembled correctly, follow 
the instructions displayed by the program 
for saving the machine code, and you 
should be ready to test the cruncher. 


To crunch a Basic program, first load 
it into memory, and then type *RUN CRUNCH 
<Return>. After a short delay, the prompt 
should re-appear, and your Basic program 
will be compacted. 


Warning: do not crunch a program unless 


you have saved an uncrunched copy first, 
and always do any editing with an 
uncrunched version. In fact, it is 


advisable not to crunch any program until 
you have finished developing it. 


The utility will crunch all program 
lines, regardless of whether they contain 
Basic or assembler instructions, although 
lines that have a GOTO pointing to them 
will not be crunched onto a previous line. 
Because the crunched program may have some 
line numbers missing, you may wish to 
renumber the whole program. 


The crunch program is located at 
&7000. To relocate it (e.g. to &5800 on 
the Electron), alter the value of HIMEM in 
line 100 to read HIMEM-&5800. 
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10 REM PROGRAM BUCMPCT 
20 REM VERSION B 1.6 
30 REM AUTHOR Jan Stuurman 
40 REM BEEBUG December 1986 
5Ø REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
100 MODE? :HIMEM=&7ØØØ:S%=HIMEM 
11Ø PROCassemble 
120 PRINT''"To SAVE code, type"''" *SA 
VE CRUNCH "55354952 Wem pee Wrcoburis le 
S% 
13Ø END 
1497 
1ØØØ DEFPROCassemble 
1Ø1Ø listlo=S%: listhi=S%+&100:buffer=S% 
+& 200 
1020 ptr=&7Ø:0ldptr=&7Ø:newptr=&72 
1030 listptr-&74:bufptr-&75 
1040 linenbr=&8Ø:linelength=&82 
1050 temp-&76:endflag-877 
1060 FOR pass=Ø TO 3 STEP3 
1070 P$-S$-&300 
1880 [OPT pass 
1090 .start 
1100 LDA 40:STA listptr 
1110 JSR setuptable 
1120 JSR backupline 
1130 RTS 
1140 .setuptable N of line numbers 
1150 LDA #1:STA ptr \ program loaded at 
PAGE 
1160 LDA &18:STA ptr+] N ptr to start o 
f program 
1170 .nextline 
11890 LDY 40 
1198 LDA (ptr),Y:CMP #&FF:BEQ endofprog 
1200 STA linenbr+1 \ high byte first 
1210 INY:LDA (ptr),Y:STA linenbr \ then 
low byte 
1220 INY:LDA (ptr) ,Y:STA linelength 
1230 .nextbyte 
1240 INY:LDA (ptr),Y 
1250 CMP #&8D:BNE noref 
1260 JSR listref:JMP nextbyte 
1270 .noref 
1280 CMP $&0D:BNE nextbyte 
1298 .endofline 
1390 CLC:LDA ptr 
1318 ADC linelength:STAptr:BCC nextline 
1320 INC ptr+1:BCS nextline 
1330 .endofprog 
1340 RTS 
1350 .listref \decode & list linenumber 
1360 LDX listptr 
1370 INY:LDA (ptr) ,Y: PHA 
1380 AND $&30:EOR 4&10:ASL A:ASL A:STA 
temp 
1390 INY:LDA (ptr),Y:AND #&3F 
1400 CLC:ADC temp:STA listlo,X 
1410 PLA:AND $&04:EOR #&Ø4 
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142Ø ASL A:ASL A:ASL A:ASL A:STA temp 
143Ø INY:LDA (ptr),Y:AND #&3F 
144Ø CLC:ADC temp:STA listhi,X 
145Ø .updatelistptr 
1460 INC listptriBNE ok 
1470 BRK N 256 linenumbers listed 
1480 OPT FNEQUB (100) 
1499 OPT FNEQUS("List space") 
1500 OPT FNEQUB (Ø) 
1518 .ok 
1520 RTS 
\ 1530 .backupline 
1540 LDA #1:STA oldptr:STA newptr 
1550 LDA &18:STA oldptr+1:STA newptr+1 
1560 .newbuffer 
1570 LDA $0:STA bufptr:STA endflag 
? 158Ø .readline 
159Ø LDY #Ø 
16ØØ LDA (oldptr),Y:BMI endbuffer N end 
of program 
161Ø STA linenbr+1 
162Ø INY:LDA (oldptr),Y:STA linenbr 
163Ø INY:LDA (oldptr),Y 
164Ø SEC:SBC #2:STA linelength 
165Ø LDX bufptr:BNE check 
166Ø LDA linenbr+1:STA buffer,X:INX 
1670 LDA linenbr:STA buffer,X:INX: INX 
1688 JMP readbyte 
1698 .check 
1700 LDA endflag:BNE endbuffer N .token 


in last line 


1718 


JSR checklist:BNE endbuffer N line 


nbr in listlo/hi 


1720 
1730 


INY:LDA (oldptr),Y:DEY 
CMP #&DD:BEQ endbuffer N line star 


ts with DEF 


1740 


CMP #&DC:BEQ endbuffer \ line star 


ts with DATA 


1750 
1760 


LDX bufptr:TXA 
CLC:ADC linelength:BCS endbuffer N 


buffer full 


1776 
1780 
1798 
1800 
1818 
1820 


LDA #&3A \ insert colon in buffer 
.inbuffer 

STA buffer,X:INX 

.readbyte 

INY:LDA (oldptr),Y:PHA 

CMP #&2A:BNE notstar 


1830 CPY#3:BEQ star Mine starts with * 
1840 DEX:LDA buffer,X: INX 
' 185Ø CMP #&3A:BNE notstar N * not prece 

ded by : 

186Ø .star 

1870 STA endflag \ OS command 

1880 .notstar 

1890 PLA:BPL nontoken N byte < &80 

1900 JSR checktoken:JMP inbuffer 

1918 .nontoken 

1920 CMP #&@D:BNE inbuffer N not end ol 
d line 

1930 STX bufptr:INY:TYA N end old line 
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1940 
1958 
1968 
1978 
1988 


SE EE 


CLC:ADC oldptr:STA oldptr 

LDA oldptr+1:ADC #Ø:STA oldptr+1 
JMP readline 

.endbuf fer 

PHA: INX:STX buffer+2:DEX \ store n 


ew line length 


1999 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
gram 
2090 
2100 
2110 
2120 
2130 
2140 
2150 


LDY 40 

.Storebyte 

LDA buffer,Y:STA (newptr),Y 
INY:DEX:BNE storebyte 

LDA #&@D:STA (newptr) ,Y 

INY: TYA 

CLC:ADC newptr:STA newptr 

LDA newptr+1:ADC #Ø:STA newptr+1 
PLA 

CMP #&FF:BEQ finished \ end of pro 


JMP newbuffer 

» finished 

LDY #Ø:STA (newptr) ,Y 

RTS 

.checklist 

STX temp 

LDX listptr:BEQ nomatch 

DEX:LDA linenbr+1 

.listloop 

CMP listhi,X:BNE listnext 

LDA linenbr 

CMP listlo,X:BEQ match 

LDA linenbr+1 

.listnext 

DEX:CPX #&FF:BNE listloop 

.nomatch 

LDX temp 

LDA #Ø:RTS 

«match 

LDX temp 

LDA #1:RTS 

.checktoken 

STX temp:LDX 47 

.tokenloop 

CMP token,X:BEQ setendflag 
DEX:BNE tokenloop 

CMP #&8D:BNE return 

-codedlinenbr \ transfer to buffer 
LDX temp:STA buffer ,X:INX 
INY:LDA(oldptr) ,Y:STA buffer,X: INX 
INY:LDA(oldptr) ,Y:STA buffer ,X:INX 
INY:LDA (oldptr) ,Y 

RTS 

.Setendflag 

STA endflag 

«return 

LDX temp:RTS 

«token Mast statement on new line 
OPT FNEQUD(&F4DCE7ØØ) Nrem,data,if 
OPT FNEQUD(&EOElF8EE) \end,endproc 


,return,on 


2490 
2500 


] 


NEXT -—2 
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Acorns 


ViewPlot 


Reviewed 


If graphical displays of ViewSheet or 
ViewStore data appeal to you, then 
read on. David Otley has been trying 
out Acorn's latest addition to the View 
family, ViewPlot. 


Product :ViewPlot 
Supplier : Acorn Computers Ltd. 
Cambridge Technopark, 
645 Newmarket Road, 
Cambridge CB3 8PD. 
Tel. (0223) 214411 
Price : £25.30 
The ViewPlot program is part of 
Acornsoft's View family, and allows 
various graphs and charts to be produced 


from data contained in a ViewSheet 
spreadsheet (or a ViewStore data file). 
It also allows charts to be constructed 
from data which is directly entered into 
the program. 


The disc-based program is menu-driven 
with three main sections controlling data 
entry, chart presentation from a single 
set of data, and the production of graphs 
combining several sets of data. Direct 
data entry is quite straightforward and 
allows for up to 100 pairs of data values, 
which must then be saved to a disc file. 
A chart of the data can then be prepared 
by choosing the next menu option and 
following the prompts given. A choice of 
line graph, bar chart or pie chart is 
offered, although moving from one form of 
presentation to another requires all the 
menu prompts and the data file to be 
re-entered - an irritating feature once 
serious work has begun. 


Once a graph is displayed, the colours 
of the backgound, axes and lines can be 
altered by using the function keys, and 
the most pleasing form of presentation 
quickly obtained. Unfortunately, although 
modes Ø, 1, 2, 4 and 5 can be used on the 
B+ and Master (and if a 6502 second 
processor is used), only modes 4 and 5 are 
available on a standard BBC B, presumably 
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` graphs, 
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due to the program space required. 
Further, if the mode is changed or the 
type of chart required is altered, 


time-consuming disc accesses are needed as 
parts of the program re-load and the data 
is re-accessed. 


Data can be combined in various ways. 
Firstly, either one, two or four graphs 
and charts can be displayed on the screen 
at the same time by splitting the screen 
into windows. This allows, for example, 
the same data to be viewed in the three 
alternative modes of presentation, or for 
four different series of data to be seen 
together (see illustration), although this 
must be done in mode 4 on the model B. 


Secondly, graphs of the same type (or 


different types, although this is not 
recommended!) can be overlaid on one 
another. In this case, the vertical axis 


is rescaled so that it includes the 
maximum range in all of the data sets, and 
provision for a new title is made. 


Unfortunately, the horizontal axis 
overwrites itself if different legends 
have been used on the original graphs. 


This is best used with line 
as bar charts rapidly become 
illegible when more than two or three are 
combined. The . process is completely 
automatic with the user having no control 
over, for example, the spacing and widths 
of the bars. But again, the colours used 
in the display can be adjusted, and the 
patterns used to fill bars and pie 
segments selected (see illustration). 


facility 


Once a screen display has been 
constructed and adjusted to give the most 
pleasing presentation, it may be saved to 
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disc. Here one of the poorer aspects of 
the package becomes apparent. The screen 
dump automatically saves to the program 
disc in drive Ø under the name Image. The 


file thus has to be *COPY(ed) to another 
disc and renamed if several dumps are 
required. Similarly, data is saved on the 


program disc unless the rather tedious 
:l.filename notation is used. The manual 
makes no mention of this latter 
possibility and is otherwise rather thin 
on details of importance to the serious 
user. One would really expect a program 
of this sort to ask whether separate data 
and program discs were being used, and on 
which drives. 


A printer dump is also supplied that 
allows a screen to be sent to the printer. 
Only one size of dump is allowed (approx 
9" x 6", fitting neatly onto A4 paper) and 
the dump is for Epson FX or compatible 
printers. It worked adequately on my 
MX80, but took over 8 minutes to dump a 
Single screen. 


reason for the 
to extract data 
spreadsheets and to plot 
graphs from it. This can be done in two 
ways. The first involves spooling part of 
the spreadsheet using the *prepare 
program supplied. This works easily 
enough, provided the data required is in 
two adjacent columns (not rows!), anda 
data file suitable for ViewPlot is the 
result. The second method involves the 
creation of a link file. The advantage of 


However, ` the main 
program's existence is 


from Viewsheet 


the link file is that it is permanently 
associated with the appropriate 
spreadsheet, so that whenever a change is 
made to the spreadsheet, the link file is 


automatically updated. In this way you 
can move quickly between the spreadsheet 
and the graphical plots. The disadvantage 
is that the manual is very cryptic as to 
how such files should be created, and will 
probably be quite incomprehensible to most 
users. I am familiar with the BBC micro 
and the ViewSheet spreadsheet, but it took 


me several hours of trial and error to get 
a working link file. It is quite 
inexcusable for such a vital feature to be 
SO badly explained, and it will make the 
whole program useless to many purchasers. 


The best feature of the program lies 
in its ability to construct a 'slide' show 
of linked screens of graphs that can be 
presented in sequence. The screen output 
is so much better than the printed output 


and, in any case, there seems to be no 
simple way of incorporating graphs into 
reports produced using View. The slide 


facility allows a whole series of graphs, 
either singly, or in twos or fours, to be 
presented in selected colours. The number 
in a sequence is limited only by, the 
catalogue capacity, as one file is linked 
to call the next file. The screen display 
is quite quickly written, and the whole 
effect is impressively professional. 


The program has to be compared with 
Interchart from Computer (Concepts (see 
review in BEEBUG Vol.4 No.8). Viewplot 
suffers from being disc-based rather than 
ROM-based. It has less memory available 
for screen and data on a model B and is 
considerably less user-friendly. It is 
far easier to produce charts from 
Intersheet using Interchart than from 
ViewSheet using ViewPlot, and I cannot 
recomend the latter combination to new 
buyers. But if you already have ViewSheet 
or require its unique features (especially 
the screen windows) ViewPlot is the only 
way to get graphical output and, once set 
up, works passably well. Its strongest 
feature is its ability to produce a 
'slide' show, and if you wish to present 
data in this form, it is well worth the 
price. But it is badly let down by its 
manual on the vital matter of constructing 
the necessary link files. 


[BEEBUG members may also like to consider 
the above comments in relation to our own 
series on Business Graphics - part two in 


this issue. ] 


一 一 一 一 -一 一 


-PEQGRAM_CRUNCHEB 


— 
25 2510 ENDPROC 


25208 

253Ø DEFFNEQUB (A%) 
2540 ?P%=A%:P%=P%+1 
2550 =pass 

2560 : 

2570 DEFFNEQUD (A2) 
2580 !P%=A%:P%=P%+4 
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2590 -pass 

2600 : 

2610 DEFFNEQUS (AS) 

2620 SP%=AS:P%=P%+LEN (AS) 


263Ø =pass 

2640 : 

2650 DEFPROCnum (13) 

2660 IFISC&FFF PRINT;"Ø"; 
2670 PRINT; I%; : ENDPROC 1 


27 


* Powerful but easy to use 
* Interactive data analysis 
* Simple command language 


THE MOST POWERFUL STATISTICS PACKAGE YET WRITTEN FOR THE BBC MICRO 


INSTAT is a general purpose statistics package with over 70 commands for interactive data 
analysis. Many commands have optional subcommands for greater flexibility. 

INSTAT has been written by statisticians for use in data analysis in any area of application. 
It is also ideal for teaching statistics. 


Facilities include: 
* easy data entry and editing * descriptive statistics * powerful plotting * 
calculations and data transformations * interactive multiple regression * 
random sample generation * macros * multiway tables * analysis of variance for 
balanced design * probability distributions * comprehensive 'on line' help 

* asse and much more........ 


INSTAT operates on the BBC B, B+ and Master. 


Maximum Data Space: approximately 10,000 to 30,000 numbers, depending on the machine. 
The INSTAT package consists of a disc, 16K EPROM, Introductory Guide (150pp) and Reference 
Guide (95pp). 


Price: £85 + VAT (includes postage and packing). Educational and multiple copy discounts. 


For further details: Alison Ansell, Statistical Services Centre, Department of Applied Statistics, 
University of Reading, Reading. RG6 2AN Tel: 0734 875123 X 460 and 0734 861239 (24hr) 


BY MAILORDER 


he entire Mirrorsoft range of quality software is available by CREATIVE COMPUTING 


mail order direct from our warehouse, with no extra charge Fleet Street Editor £39.95 (disk only) 
for postage and packing (UK only). All programs run on BBC Admin Xtra £14.95 (disk only) 
B/B + and Electron. Please enquire about Master-compatible Fonts 'n' Graphics £14.95 (disk only) 
versions. Walt Disney Graphics £14.95 (disk only) 
Prices given are for tape versions. Please add £3 for 5.25" r 
disks. Please state whether 40 or 80 track required. GAMES 
Caesar the Cat £6.95 


We accept cheques, postal orders, Access, VISA, and 
American Express. Please allow 28 days for delivery. 


Send for our free colour catalogue, too! 


Hi Bouncer £6.95 
Strike Force Harrier £9.95 


- EARLY LEARNING/CHILDREN'S ENTERTAINMENT erd 
Å , astermind £9.95 
Caesar's Travels £12.95(disk only) Ages 3-9 BBC M ind Qui 
Count with Oliver £7.95 Ages 47 astermint Quizmaster n 
Joffe Plan £9.95 
Crack It! Towers £9.95 Age 7+ Know Your Own Psi Q £9.95 
First Steps with the Mr Men £8.95 Agqes36 k MS 
å ^ now Your Own Personality £9.95 
Giddy Game Show £9.95 Ages 3-6 Star Seek £9.95 
Here & There with the Mr Men £7.95 Ages 4-7 ! : 
Look Sharp! £7.95 Ages 5-11 
Mr Men Magic Storymaker £9.95 Ages 4-7 MIRRORSOFT 
Quick Thinking! £6.95 Ages5-11 Dept BB, 
Quick Thinking Plus! £6.95 Ages 5-11  FREEPOST BS4382, 
Word Games with the Mr Men £9.95 Ages 5-8 Paulton, Bristol BS18 5BR (No stamp needed) 
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MASTERFI LE i i — General purpose pa 


Combines with Wordwise/View to 
produce Standard Letters etc. BEN PATERE ILE II 


MASTERFILE is a general purpose file Å Enter record description 
management package allowing large inte ceu ^ 
amounts of information to be stored d 

and processed. It is extremely powerful 

yet flexible and easy to use. Once set 
up, the information may be retrieved, 
sorted on any field, displayed, 
updated, printed etc. as required. 


e 
Initialise-Clear file 
Enter search data 
Print-Search file 
Sort 


IrecefercaAnpant files 
Compact the file 

Global field calculation 
Activate'TAG' file 
Utilities 

Form design 

Stop the program 

PTION? _ 


zaxr-*cCeOrommooo» 


ovo 


Separate versions of the program are 
available for cassette and disc users, 

the disc version using random access 
files and offering many extra features. 


MASTERFILE II FACILITIES 


Extremely fast “tag” sorting on virtually any combination of fields. 
Any number of tag files may be associated with your data file. 


Flexible print layouts allowing additional text to be combined with the 
output to produce standard letters etc. 


Output from MASTERFILE I| may be spooled directly to a file for later use 
with WORDWISE or VIEW. 


Flexible data entry. 


Fields may be defined as numeric, string, decimal or date and up to 
955 characters in length. 


Spreadsheet type facilities allowing global changes to be made on 
string, numeric and decimal fields. 


Sub-files may be created from selected fields and records, from the 
master file, according to most criteria. 


Extra utilities to delete a field throughout a file, copy file descriptors and 
change dates. 


ORDERING INFORMATION 


Price 
Masterfile II £22.00 
ADFS Masterfile Il £22.00 
Upgrade M.file Il to ADFS M.file II £10.00 
Upgrade M.file | (Disc) to M.file II £12.50 
Upgrade M.file | (Disc) to ADFS M.file II £12.50 


Please specify 40 or 80 tracks and standard or ADFS format. 


INTERACTIVE 3D is a unique program that actually allows you to create 
a design directly in a 3D view. And you can zoom, rotate and change 
view at any time to visualise the effect of design changes. Full editing 
facilities allow you to create and delete points and lines, and adjust 


* Acclaimed in reviews 
(Micro User, Beebug, 
A&B etc) 

* Widely used in schools, 
colleges and industry 

* Licenced to Education 
Authorities 

* Sold in nearly 20 
different countries 
worldwide 

* Probably the most 
powerful 3D CAD 
system for any home 
micro, and at an 
unbelievably low price 


£8.95 cassette £12.95 disc 
(state 40 or 80 track) 


DESTCH 


their positions in any direction, all under cursor control without having 
to enter any numerical data. Circles can be generated automatically and 
symmetrical forms can be created by reflections. Designs can be saved 
to tape/disc and reloaded. Views shown on the screen can be saved or 
printed. Altogether, nearly 50 operations are included. 

For BBC B, B+ and MASTER series. 


Cheque/PO to: 

DESIGN DYNAMICS, [B] 
8 Meadow Way, Ampthill, 
Bedford MK45 2QX 


ADVERTISING 
IN 
BEEBUG 


For advertising details, please contact: 


Yolanda Turuelo 
or fe) 


n 
(0727) 400303 


Lynn Lloyd 
on 


(0923) 677222 


or Write to: 
Dolphin Place 
Holywell Hill 
St. Albans 
Herts AL1 1EX. 
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BEEBUGSOFT UPGRADES 


We offer a full service for members who wish to upgrade their Beebugsoft products 
from cassette to disc, disc to Rom etc., or to the latest version (e.g. Masterfile | to 
Masterfile Il). To take advantage of this service please return your original program 
along with your order and remittance. Send all orders to the usual St. Albans 
address, marked ‘UPGRADE’ and add the usual postage charges. 


Product RRP Members 
e Design (cass) to Design (disc) £15.00 £11225 
€ Dumpmaster (cass) to Dumpmaster II (Rom) £25.00 £18.75 
€ Dumpmaster (cass) to Dumpmaster (disc) £9.00 £6.75 
€ Dumpmaster (disc) to Dumpmaster II (Rom) £23.50 £17.60 
€ Exmon | (cass) to Exmon II (Rom) £26.00 £19.50 
€ Exmon I (Rom) to Exmon II (Rom) £18.50 £13.85 
€ Help (Rom) to Help II (Rom) £18.50 £13.85 
€ Hershey Characters (cass) to Hershey Characters (disc) £15.00 E8525 
€ Masterfile | (cass) to Masterfile II (disc) £16.00 £12.00 
€ Masterfile | (disc) to Masterfile II (disc) £12.50 £9.35 
€ Masterfile | (disc) to ADFS Masterfile II £ 12.50 £9.35 
€ Masterfile II (disc) to ADFS Masterfile II £10.00 £7.50 
e Paintbox | (cass) to Paintmaster (cass) £7.00 £5:35 
€ Paintbox | (cass) to Paintmaster (disc) £10.00 £7.50 
e Paintbox | (disc) to Paintmaster (disc) £9.00 £6.75 
€ Quickcalc (cass) to Quickcalc (disc) £10.50 £7.85 
€ Sleuth (Rom) to Sleuth 1.06 (Rom) £7.50 £7.50 
€ Spellcheck | (disc) to Spellcheck III (Rom + disc) £26.50 £19.85 
e Spellcheck II (Rom + disc) to Spellcheck III (Rom + disc) £11.00 £11.00 
€ Sprites (cass) to Sprites (disc) £9.00 £6.75 
€ Starter Pack (cass) to Starter Pack (disc) £10.50 £7.85 
€ Teletext (cass) to Teletext (disc) £9.00 £6.75 
€ Toolkit to Toolkit Plus £25.50 £19.10 
€ Wordease (disc) to Wordease (Rom) £18.50 £13.85 


Personal Ads 


BEEBUG members may 
personal ads (including 'wants') 
please keep your ad as short as possible. 
received, we 
cannot be accommodated in 
if you do not wish 


purchasers should ensure that they always 


advertise unwanted computer 
in BEEBUG. 
Although we will 
reserve the right to edit or reject any ad if necessary. Any ads 
one issue will be held over to the next, so please advise us 
us to do this. We will accept adverts for software, but prospective 


hardware and software through 
These are completely free of charge but 
try to include all ads 
that 


receive original copies including 


documentation to avoid any abuse of this facility. 


We also accept members' business ads at the rate of 3Øp per word (inclusive of VAT) 


and these will be featured separately. 
MEMBERS" 


Please 
ADS, BEEBUG, Dolphin Place, Holywell Hill, St Albans, 


send all ads (personal and business) to 
Herts AL] EX. The 


normal copy date for receipt of all ads will be the 15th of each month. 


BBC B with Watford 32K RAM card, MK II 
ROM board (including 16K RAM) and a 
Watford DDFS complete with Wordwise 
Plus, Interword, Toolkit plus and six 
other ROMs fitted. Recently serviced and 
fitted with speech chips £350. Will 
include a modem plus software for £400. 
Metal cased slimline disc drive 80 track 


400K £80. Epson FX80 with Watford NLQ 
ROM £190. Tel: (Ø5827) 5929 (St.Albans 
area). 


Single disc drive, double sided 40 track 
(200K). Powered from BBC. £60 plus 
carriage. Tel: 061-439 9665. 


Wanted - Clean copy of book 'Making 
Music on the BBC Computer' by Ian Waugh. 
Tel:(0294) 53648. 


Wanted - A good 8271 FDC. Also Unistat, 


Watford Alnoor Arabic ROM and OCCS 
Pascal 2.1 software packages. Please 
write, stating price, to George Scerri, 
9 A/2 St.Mary Street, Ghaxaq, Malta G.C. 
Only reasonable offers will be 
considered. 

ATPL Sidewise ROM/RAM board, £20. 
Solidisk PC enclosure, £20. ROMs: 
Accelerator £30, Graphics (Computer 
Concepts) £14, Murom £14, Sleuth £14, 
ROM Manager (Watford) £10, Discs: 
Paintbox II (8@trk) £8, 3-D Graphics 


(Glentop) 2 discs (80trk) £14. All with 
manuals. P&p extra. Tel: (Ø722) 72219. 


BBC B, colour monitor, 
ROM, joysticks, manual, 


recorder, Help 
mags, all for 


BBC model B linked to Torch Z8Ø (Torch 
BBC Basic) disc pack, twin 400k 80 track 
drives. Basic II, DFS 340.9, ATPL ROM 
board, View 1.4, other ROMs and software 
available. £500. Tel: 7943 871 (Tewin) 
7841. 


BBC B latest specification, Solidisk 
DDFS, Sidewise ROM board, 16k sideways 
RAM, Vine tape to disc ROM, Beebugsoft 
Toolkit ROM, Speech upgrade, volume 
control, manuals. Cost over £638 - only 
£310. Jennings, St.Albans (0727) 61835. 


Mint condition double sided 40/80 track 
Opus 5802 disc drive £80 inc. p&p. New 
Floppy-Wise Master ROM, boxed with 
instructions £20 inc.p&p. Phone (0263) 
78488. 


BBC B, OS 1.2, plus Advanced User Guide 
£260. Tel: Sheffield 682010 or St.Helens 
612153. 


BBC B - ROM expansion board, DDFS, 6502 
2nd ` processor, 40/80 twin drives, 
monitor stand, Hi-View, printer drivers, 
Watford NLQ, BCalc, Interchart, 
Masterfile II, Spellcheck II, manuals. 
£550 ono. Tel:01-671 9233. 


AMX Pagemaker Master 128, 80 track 
version £28, pristine condition, Island 
logic music system Master 128, 46/80 
track £15. The Artist by Wigmore House 
£35. G.Brown. Tel:01-341 2187. 


BBC B, DFS, Wordwise, BCPL, Solidisk 32K 
board, Canon dual disc drive, Kaga KP810 
as new, lots of ROMs and other software 


£250. Tel:01-446 3033. and books - £1ØØØ ono. Tel: Sonny on 
91-550 5082. — 
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BBC B, ROM board, hard dust cover, 
Oxford Pascal, Opus DOS, Opus disc drive 
40/80 switchable, Shinwa CP8Ø printer 
and many extras. Original invoices 
available - complete price £575. Tel: 
91-319 Ø414. 


For Sale: Opus DDFS 3.45 £3Ø. Wordwise 
Plus £25. Wordease on 2 ROMs £18. 
Spellcheck III on ROM £18. Mini Office 
40/80 disc £4.50. Few games cheap. Phone 
(0244) 315716 evenings. 


40 track 1ØØK single sided disc drive 
£75 ono. Tel:(0628) 31202. 


Beebugsoft Toolkit Plus £25. Complete 
with box and manual. Owner upgrading to 


Master. Phone Bracknell (0344) 55772 
after 6pm only. 
Morley RAM disc, unused £150. Various 


ROMs and manuls; Wordwise Plus £20, 
Watford NLQ £10, CJMicros NLQ (Epson) 
£20, AMX mouse plus Pagemaker and 
Superart ROMs and software £75. Oberon 
Omni reader, unused £130. Tel: (94427) 


5702 evenings. 


ATPL sidewise ROM board with 16K 
sideways RAM £25, Beebugsoft Sleuth ROM 
£20. Phone Doncaster (90302) 744005. 


Disc drive, Cumana CS1ØØ, 40 track, 
100K, own PSU £60. Tel: Harefield 3086. 


Viglen 40 track disc drive 1ØØK for sale 
£100 ono. Also BBC disc penpals wanted. 
Tel: East Grinstead (0342) 8190508. 


Computer 
manual 


Concepts Speech ROM, with 
and Acorn 5220 speech processor 


chip £25. R.J.Follett, 26 Arbor Lane, 
Winnersh, Berks. RGll 5JD. 
Beebugsoft Sleuth 1.06 as new £15. 


Tel:(0602) 231395. 


Bitstick £275. Acorn 6502 2nd processor 
with DNFS and HiBasic ROMs, £130. Both 


boxed, as new. Tel: Paul, Derby (0332) 
362798. 
BBC B, Torch 280 twin 400K discs, 


joysticks, RAM/ROM board, sideways RAM, 
Music 500, about 40 books and over 100 
magazines £399. Phone 01-542 2747. 
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Oak universal BBC model B PC with Cumana 
twin double sided 4Ø/8Ø switchable disc 
drives, Phillips high resolution 12" 
monochrome monitor, CVX 16-2 battery 
backed ROM/RAM board, Wordwise Plus, 
Wordease, Spellcheck II and all manuals. 
Cost new over £1000, in very good 
condition £675 ono. L.Johnstone, Meikle 
Larg, Crocketford, By Dumfries, Scotland 
DG2 9ST. 


Acornsoft Micro Prolog (unused) and some 
books £50 (save £20). Tel: (0603) 811005. 


Wordwise Plus ROM including all manuals 
and keystrip etc. £20. Tel:01-883 1415. 


O and A level computer studies/science: 
detailed answers available (AEB board). 
For information, please send S.A.E. to: 
A. Beniston, 71 Princes Way, Fleetwood 
FY7 8DB. 


BBC B, DFS 0.90, Basic II, OS 1.2, dual 
40 track double sided disc drives, 
Watford sideways RAM, Phillips green 
monitor, Joysticks, cassette player, 
many books, magazines, software worth 
hundreds of pounds. £495.  Tel:051-428 
3130. 


Miscellaneous BBC software for sale. 
List from Carlin, St.Chad's Vicarage, 
Ragpath Lane, Stockton, Cleveland TS19 
9JN. 


Bae B "Ost Ina, Basic ub including 
various games and books £185. Tel: (0227) 
264986. 


Fleet Street Editor £15, Masterfile II 
£9. Both are 40 track original discs and 
manuals in original packaging.  Unwanted 
gifts. Peter Sotheran, Hime Farm, 
Yearby, Cleveland TS11 8HQ. 


Flectron, Plus-l interface, Cumana disc 
drive, Cumana disc interface, discs, 
T2CV ROM, View and Hopper ROM 
cartridges, many original software 
cassettes, all boxed as new and in 
excellent condition £350 the lot. Will 
split. If interested write to: TJN, 49 
Blith-Meadow Drive, Sprowston, Norwich, 
Norfolk NR7 8PY. 
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Events 
Higher Technology Barbican Centre 21-24 Jan 
and Equipment in London 
Education 
Electron and BBC Old Horticultural 20-22 Mar 
Micro User Show Halls, Westminster 
Electron and BBC Old Horticultural 8-18 May 
Micro User Show Halls, Westminster 
Electron and BBC Old Horticultural 13-15 Nov 


Micro User Show Halls, Westminster 


ETSESKADER PETER NNN RENSE R 
Discounts Update 


Waterloo Travel Service, 
67A Cheadle Road, 
Cheadle Hulme, 

Cheshire. 

Tel: Ø61-486 Ø912 


The above company are offering 4% discount to members on all package holidays from 
any tour operator, any airport departure, and using their insurance. Please make 
sure you have your membership number handy. 


High Scores 


ACORNSOFT Revs (Silverstone) 
ACORNSOFT Revs (Brands Hatch) 
ACORNSOFT Revs (Donington) 
ACORNSOFT Revs (Oulton) 
ACORNSOFT Revs (Snetterton) 
BEEBUG MAG Manhole 

BEEBUG MAG Scrumpy 

BEEBUG MAG Wee Shuggy 

MICRO POWER Alien Swirl 
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SOFTWARE INV 
SUPERIOR SOFT 
SUPERIOR SOFT 
SUPERIOR SOFT 
TYNESOFT 
ULTIMATE 
ULTIMATE 
ULTIMATE 
ULTIMATE 
ULTIMATE 


Blitzkrieg 
Karate Combat 
Mr .Wiz 
Stryker's Run 
Jet Set Willy 
Atic Atac 
Atic Atac 
Atic Atac 
Nightshade 
Nightshade 


13.55 mins 
12$ 
42000 


M. Reardon 
M.Reardon 
R.Koten 
M.Williams 
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Classified Ads 


Oscilloscope teaching simulator, perfect 


for explaining CRO operation. 
Demonstration and real-time modes, 
extremely versatile. For sample and 


details .send large SAE to: Osc-Demo, 63 
Stanbrook Road, Solihull, West Midlands 
B9Ø. 


Master Art for BBC Master 128. Take full 
advantage of the new graphic 
capabilities. Easily create stunning 


full screen pictures in mode 2 in 64 
shades, using spray, fill, line and much 
more. Uses all 64K of SWR. Multi-screens 
in memory. Pull-down menus. Controlled 
by Mouse, Trackball or keyboard. Instant 
replay. Copy and paste between screens. 
Text in multi-size and 3D. 40 or 80 
track, please specify. £25 inclusive, or 
SAE for specifications. No.3 Software, 3 


Dairy Farm Court, Attleborough, Norfolk 
NR17 2BT. 


MARKS AND STATISTICS For teachers and 
lecturers. Simple to use spreadsheet 
format. 330 students per file. Up to 300 
subjects. Sorts, analyses, normalises, 
calculates means, applies weighting 
factors. Prints histograms and lists. 
Full documentation supplied. Disc (40 or 
80 track) £17. In-Form, 73 Woodfield 
Park, Colinton, Edinburgh EH13 ØRA. 


disc database for BBC 
and 


Churchbase 
micro. Easy to use yet powerful 


sophisticated. Very flexible print out. 
Full specification from: Carlin, 
St.Chad's Vicarage, Ragpath Lane, 


Stockton, Cleveland TS19 9JN. 


REAGERE EEE ced 


UK Bulletin Boards 
(continued) 


MBBS Mitcham Øl 648 0018 
24 Hours 1200/75 & 300/300 
Metrotel Øl 941 4285 
24 Hours (London) 
1200/75 Viewdata 
MG-NET 91 399 2136 
Sun 17.00-22.00 300/300 
Microlive Øl 579 2288 
24 Hours (London) 
308/300 
Microweb 961 456 4157 
24 Hours (Manchester) 
308/308 
Mileways 9533 608442 
18.00-22.00 Mon-Fri (Leicester) 
10.00-22.00 Sat/Sun 300/3008 


9061 736 8449 
(Manchester) 
1200/75 & 300/300 


MOBB 
24 Hours 


9524 426133 
(Morecambe) 
300/300 & 1200/75 


Morecambe OBBS 
24 Hours 
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NBBS Aberdeen 0224 647158 


24 Hours (Aberdeen) 
300/300 
NBBS Cheshire 9936 77025 
24 Hours (Cheshire) 
1208/75 & 300/300 
NBBS East 0692 630186 
24 Hours (Norfolk) 
1200/75 & 300/300 
NBBS Essex 90277 228867 
24 Hours (Essex) 
1200/75 & 300/300 
NBBS London Øl 883 5290 
21.20-08.00 WE 24 Hrs (London) 


1200/75 & 300/300 


NBBS Lutterworth 945 55 4798 
20.00-08.00 WE 24 Hrs (Lutterworth) 
300/300 


0246 865843 
(Chesterfield) 
300/300 & 1200/75 


NBBS Midlands II 
19.00-23.00 WE 24hrs 
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NOVACAD 


Computer Aided Draughting for the BBC Micro 


56 The Novacad system is a thoughtfully designed piece of software 
requiring a minimum of manual bashing so that real results are 
possible with just a few hours work. 99 


A sophisticated CAD package with unique facilities which are 
generally confined to the professional CAD packages costing 
thousands of pounds. 

NOVACAD is being used in widely differing fields ranging from 
leading British industries for producing engineering drawings to 
Accountants’ offices for producing flow charts. Architects, 


66 Novacad is a professional package, well worth the £90 for the 
ROM and disc and is expandable to suit your own particular 
requirements. I would have no reservations if I heard Novacad 
called, "the best on the market”. 9 A&B Computing August 1986 


engineers, plumbers, kitchen planners and many other 
professions requiring easy to use facilities for producing 
professional quality output are making extensive use of 
NOVACAD’s unique features. NOVACAD is proving to be a 
invaluable teaching aid in technical schools and colleges simply 
because of the ease with which it can be used. 


r 


The major features of NOVACAD are: 
Simple and easy to use with logical command 
sequence. 

A large drawing area (approx 15 screens). 
The ability to create complex icons (upto 500 
lines instead of the usual 15 to 20 pixels), 
store them in a library and recall them at 
different scales and orientations. 

A zoom facility allowing magnification of up 
to 20 times to insert finer details. 

Block copy of shapes on the screen for 
repetitive use. 

Text entry at any 90 
position on the screen. 

Create multi layer drawing with 8 levels 
available. 

Full compatibility with the BBC range with 
minimal hardware requirements yet having 
the capability of exploiting the potential of 
the extra shadow memory or the second pro- 
cessor’s memory and speed. 

Printer routine for Epson 80 and 136 column 
printers. 

An option to output to any BBC compatible 
plotter of any size. 


orientation at any 


MINIMUM HARDWARE 
REQUIREMENTS 


@ Any BBC range computer with Acorn DFS. 
@ 40 Track single sided single drive. 
@ Epson compatible dot matrix printer. 


With basic BBC B, NOVACAD operates in 
mode 4 allowing use of any 2 colours. With 
shadow memory on the B+ or the Master, the 
user can work in mode 0 for high resolution or 
mode | for using any 4 logical colours in the 
drawings. 6502 second processor or the Turbo 
board will in addition to mode 0 and mode 4 
operation increase the drawing speed. 


NOVACAD is 
available in two 
versions 
*BASIC version for cursor 

control from the keyboard. 


*T/M version for cursor 
control from the keyboard, 
Tracker Ball or a Mouse. 


OPTIONAL EXTRAS 


Plotter driver generator is available as an 
optional extra to configure a plotter routine 
for any BBC compatible plotter. Pre- 
configured programs for the popular plotters 
like Epson HI 80, Hitachi 672, Plotmate, 
Penman and HP G This program allows 
the drawing to be scaled to the maximum 
plotter size thus enabling drawing of A2 and 
A3 sizes to be produced with equal ease. The 
zoom facility will enable inaccuracies of 
drawing on the screen to be eliminated 

ROUTCAD, an optional software package 
for our Graphics Workstation allows for 
production of shapes drawn using 
NOVACAD in 3D on suitable material and is 
ideal for a range of applications including 
template making and model building. 


NOVACAD package includes a 16K ROM, Utility disc and a comprehensive manual. 


NOVACAD £79 (d) 
Stand Alone Mouse £34 (d) 
Plotter Driver Generator £28 (d) 


RoutCad £28 (d) 


NOVACAD T/M £99 (d) 
RB2 Tracker Ball (no software) £45 (c) 


Prices do not include Carriage or VAT charges. Carriage charges (c) £1.50 (d) £1.00 


”TECHNOMATIC LTD. 


13/17 Burnley Road, London NW10 1ED Tel. 01-208 1177 
305 Edgware Road, London W2 


Tel. 01-723 0233 


NBBS Marlow 
Sat-Thur 18.00-00.00 
Ring and Ask 


NBBS NE 


24 Hours 


NBBS Wallington 
23.00-16.00 


NKABBS 
21.30-00.00 


Norview 
24 Hours 


OBBS Bradford 
WD 18.00-00.00 


OBBS Manchester 
24 Hours 


OBBS 2 North Wales 
24 Hours 


Octopus 
18.00-08.30 


Optel 
24 Hours 


OSI Lives! 
24 Hours 


Owltel 
24 Hours 


PBBS-NI 
22.00-00.00 


Pete's Place 
24 Hours 


PIP 
24 Hours 


9628 46691 
(Berkshire) 
1200/75 & 300/300 


0224 641066 
(Abrerdeen) 
300/300 & 1200/75 


Øl 669 7249 
(London) 
1200/75 & 300/300 


0795 842324 
(Kent) 
300/300 * 


0604 20441 
(Northampton) 
1209/75 Viewdata 


0274 496783 
(Bradford) 
300/300 


061 427 1596 
(Manchester) 
300/300 


9244 549336 
(Wales) 
309/300 


0272 421196 
(Bristol) 
300/300 


Øl 794 0655 
(London) 
1200/75 Viewdata 


Øl 429 3047 
(London) 
300/300 


Øl 927 5820 
(London) 
1200/75 Viewdata 


0762 333872 
(N. Ireland) 
309/300 


9206 862354 
(Essex) 
300/300 


0742 667983 


(Sheffield) 
300/300 


Pot-Bug 
20.00-23.00 Mon-Fri 
14.00-23.00 Sat/Sun 


PSBBS 
18.00-23.00 


React 
24 Hours 


RSGB 
24 Hours 


SABBS 
24 Hours 


Sanctuary 
24 Hours 


SBBS The Irishman 
21.00-09.00 


SBBS Watford 
21.00-08.00 


Southern BBS 
24 Hours 


Stoke ITEC 
24 Hours 


Swafax 
24 Hours 


System Aid 
24 Hours 


TBBS Blandford 
24 Hours 


TBBS London 
24 Hours 


9782 503254 
(Stoke-on-Trent) 
309/300 1200/75 


0443 755298 
(Wales) 
300/300 


0376 518818 
(Essex) 
300/300 


9707 57477 
(Hertfordshire) 
1200/75 Viewdata 


0698 884804 
(Larkhall) 
300/300 


9784 38110 
(Surrey) 
300/300 


0247 455162 
(N. Ireland) 
300/300 


9923 676644 
(Hertfordshire) 
300/300 


9243 511077 
300/300 


0782 265078 
(Stoke-on-Trent) 
1200/75 Viewdata 


0622 850440 
(Kent) 
1200/75 Viewdata 


Øl 571 09026 
(London) 
1200/75 Viewdata 


0258 54494 
(Dorset) 
309/300 


Øl 348 9400 
(London) 
300/300 


—————O—— € ———— Á————— 
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Use Tim Powys-Lybbe's 
excellent printer buffer 
utility to free your 
Master or Compact dur- 
ing any form of printing. 


How annoying to have 
to sit through long 
printing sessions, while 
the 64k of RAM in your 
Master remains idle. The 
accompanying program 
allows the whole of this 
area to be used as a 
buffer. If the assembled code is stored in 
one of the sideways RAM banks, it gives 
you up to 48k of buffer, or if put into 
ROM, you get up to 64k, providing that the 
RAM is not otherwise engaged. 


MASTER 
SERIES 
48/64K Printer 


Buffer 
Utility 


To reap all these benefits, just type 
in the listing and save it away. Then run 
the program, and press f8 when the prompt 
appears. This will save the machine code 
to disc (filename Buffer). Then press f9 
to load the machine code into sideways 
bank no. 4. To load it from disc on future 
occasions, use: 

*SRLOAD Buffer 8000 n (n=bank no.) 


Once loaded in, perform Ctrl-Break to 
initialise the ROM image, then *HELP will 
give you the 4 new command names. They 
are: 

*BUFFON To turn it on 

*BUFFOFF To turn it off 

*TESTBUFF ` Test if on/off & full/empty 

*CLEARBUFF Instantly clear contents 
Type *BUFFON (or even *BUF.), and print 


from Wordwise, View, Basic, the Editor, or 
even execute screen dumps without having 
to wait for the printer. Pressing Escape, 
and even performing a BACKUP will not 
affect the printing. But if you want to 
abort printout, just use *CLEARBUFF (or 
*CLE.). 
—————— 
10 REM Program Master Buffer 
20 REM Version B 3.7 
30 REM Author Tim Powys-Lybbe 
40 REM Beebug December 1986 
50 REM Program subject to copyright 
60 : 

100 OScomd=&F2:ThisROM=&F4: ROMSel=&FE3 
Ø: SidewaysVecs=&FFØØ: OSRDCH=&FFEØ 

11Ø OSASCI=&FFE3: OSNEWL=&FFE7 : OSWRCH=& 
FFEE: OSWORD=&FFF | : OSBYTE-&FFFA4:CLI-&FFF7 

120 ZP=&7Ø: InsertVec=&22A: RemoveVec=&2 
2C:CountVec-&22E: PrinterBuffer-&880 

130 BankStart=&8ØØØ:BankTop=&CØØØ:z=Pr 
interBuffer 
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140 Xstore=z+8:Ystore=z+9:Astore=z+1Ø: 
EmptyFlag=z+12:FullFlag=z+13 

150 MinRAM=z+14:MaxRAM=z+15: Input RAM=z 
+16: OutputRAM=z+17 

160 TextMin=2+18:TextMax=z+2Ø 

170 InsertExit=z+22:RemoveExit=z+24:Co 
untExit=z+26 

188 BREAKIntercept=z+28:Transfer=z+41 

199 TextInput-Transfer-*l0:TextOutput-T 
ransfer+15:TransferRAM=Transfer+1 

200 DIMQ$3ØØØ:FORPass=ØTO1 

21Ø O$-Q$:P$-&8000 

228 [OPTPass*2+4 

23Ø .Start BRK:BRK:BRK 

240 .Service JMPServiceHandle 

250 .ROMtype EQUB&82 

260 .CopyRightOffset EQUB(Copyright-St 
art) 

270 

280 

290 
bbe & 

309 
lise 

316 

320 

330 

346 
P:RTS 

350 


.BinaryNo EQUBI 

.Title EQUS"Master Buffer" 
-Copyright BRK:EQUS"(C) T.Powys-Ly 
Beebug 1986":BRK 

-ServiceHandle PHP:CMP#2:BEQInitia 


CMP#4:BNEServicel : JMPBuf fer 
-Servicel CMP#9:BEQHelp: PLP: RTS 
«End PLA: TAY: PLA: TAX: PLA: PLP: RTS 
.EndZ PLA: TAY: PLA: TAX: PLA: LDA#@: PL 


- Initialise 

360 PHA: LDA#0:STA&DF@,X: PLA: PLP: RTS 

37Ø .ZonkOnFlag:BCSZonk1:RTS 

380 .Zonkl LDX(BREAKIntercept+Zonk2-Zo 
nkOnFlag) : LDA#Ø: STA&DFO , X: RTS 

390 .Zonk2 EQUB&FF 

400 .TransferRoutine:LDY4&FF:STYThisRO 
M: STYROMsel : BCCRead 

410 STATextInput:BCSReturn 

420 .Read LDATextOutput 

430 .Return STXThisROM: STXROMsel : RTS 

440 .TransferRoutineEnd 

450 .Help:PHA:TXA: PHA: TYA: PHA: DEY 

460 .Helpl INY:LDA (OScomd) , Y:CMP#ASC" 
":BEQHelp! 

470 CMP#&D:BNEHe1p5: JSROSNEWL: LDX#&FF 

480 .Help2 INX:LDATitle,X:BEQHelp3:JSR 
OSASCI : JMPHelp2 

49Ø .Help3 LDX#&FF 

5ØØ .Help4 INX:LDAHelpWords,X:BEQHelp5 
: JSROSASCI : JMPHelp4 

510 .Help5 JMPEnd 


520 .HelpWords EQUB13:EQUS" Buffon":E 
QUB1 3 
530 EQUS" Buffoff":EQUB13:EQUS" Clea 


rbuff":EQUBl3:EQUS"  Testbuff":EQUW&D 

540 .Buffer:PHA:TXA: PHA: TYA: PHA: DEY: ST 
Yz*2:LDX40: STXz+1 : DEX 

558 .Bufferl LDYz+2 

56Ø .Buffer2 INX:LDAHelpWords+3,X:CMP# 
&D:BEQSort ItOut 
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570 .Buffer3 LDAHelpWwords+3,X:ANDH&DF: 
STAz+3: INY: LDA (OScomd) , Y:CMPHASC" ":BEQB 
uffer3:CMPHASC" .":BEQSOrt ItOut 

580 AND#&DF:CMPz+3:BNEBuf fer 4 :CMP#&D:B 
NEBuf fer 2: BEQSortItOut 

590 .Buffer4 CMP4&D:BEQBuffer6: INX:LDA 
HelpWords+3,X:BNEBuf fer4 

600 .Buffer5 JMPEnd 

61Ø .Buffer6 INCz+1]: INX: INX:BNEBuf fer] 

620 .SortItOut:LDXz+1:TXA:ASL A: TAX 

630 LDAJumpTable, X: STAz+1 : LDAJumpTable 
+1,X:STAz+2: JMP (z*1) 

640 .JumpTable EQUWBuf ferOn: EQUWBuf fer 
Off:EQUWClearBuffer:EQUWShowBuffer 

650 .BufferOn:LDYThisROM:STYZ:LDA&DFØ, 
Y:BEQTestForRAM: JMPEndZ 

660 .TestForRAM LDA$&44:JSROSBYTE: STXz 
4l:BNETestForROMs:LDA40: JMPMessageEndZ 

670 .TestForROMs LDAZP:PHA:LDAZP+1:PHA 

680 LDA#&AA: LDX#Ø: LDY4&FF: JSROSBYTE: ST 
XZP:STYZP+1 : LDY#3: LDA#1 : STAAStore 

690 .TestForl INY:LDA(ZP),Y:ASLAstore: 
CPY#8 : BEQRAMBanks : ANDH&CØ:BEQTestFor | 

700 LDAAStore:LSRA:EORZ+1:STAZ+1:JMPTe 
stFor] 

71Ø .RAMBanks PLA:STAZP+1:PLA:STAZP:LD 
xiiØ: STXXStore:LDAZ+1 : BNERAMBanks I 

72Ø LDA41:JMPMessageEndZ 

730 .RAMBanks! LSRz+1:BCSRAMBanks3:LDA 
Xstore:BNERAMBanks5 

74Ø .RAMBanks2 INX:CPX44:BNERAMBanks]: 
BEQRAMBanks5 

750 .RAMBanks3 LDAXstore:BNERAMBanks4: 
TXA : CLC : ADC#4: STAMinRAM: STAMaxRAM 

76Ø INCXstore:BNERAMBanks2 

77Ø .RAMBanks4 INCMaxRAM:BNERAMBanks2 

780 .RAMBanks5 

790 .MoveToPrintBuffer : LDX#9 

800 .MoveTol LDAZonkOnF lag ,X: STABREAKI 
ntercept ,X: INX 

810 CPX# (TransferRout ineEnd-ZonkOnF lag 
) : BNEMoveTo] 

820 LDX4 (Zonk2-ZonkOnFlag-]) :LDAThisRO 
M: STABREAKIntercept+1,X 

830 LDA#&F7:LDX#&4C: LDY#@: JSROSBYTE 

840 LDA#&F8:LDX#BREAKIntercept MOD256: 
LDY40: JSROSBYTE 

850 LDA#&F9:LDX#BREAKIntercept DIV256: 
LDY#Ø: JSROSBYTE 

86Ø .SetPointers 

87Ø LDA#BankStart MOD256:STATextMin:LD 
A#BankStart DIV256:STATextMin+1 

880 LDA#BankTop MOD256: STATextMax : LDA# 
BankTop DIV256:STATextMax+1 

890 JSRInitTextPtrs 

900 .SetIndirects:LDA#InsertVec MOD256 
: STAAstore: LDX#SidewaysVecs DIV256:STXXs 


tore: LSRA:CLC:ADCAstore: STAAStore: TAY: ST 


YYstore:LDAZP: PHA: LDAZP+1 : PHA 
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910 LDX40:LDY4&FF:LDAS&A8:JSROSBYTE: ST 
XZP:STYZP-*1:LDX40: LDYYstore 
920 .SetIndirects] LDARoutineAddresses 


,X: STA (ZP) , Y: LDAInsertVec,X 
930 STAInsertExit,X: INX: INY:LDARoutine 
Addresses ,X: STA (ZP) , Y:LDAInsertVec,X 
940 STAInsertExit,X: INX: INY: LDAThisROM 
:STA (ZP) , Y: INY:CPX#6:BNESet Indirects] 
950 PLA:STAZP+1:PLA:STAZP 
960 .SetVectors:SEI:LDX4O 
970 .SetVectorsl LDAAstore:STAInsertVe 
c,X:LDAXstore: STAInsertVec+] ,X 
980 INCAstore: INCAstore: INCAstore: INX: 
INX:CPX46:BNESetVectors] 
999 LDA41:JSRMark:JMPEndZ 
1000 .RoutineAddresses EQUWInsertRoutin 
e: EQUWRemoveRout ine: EQUWCountRoutine 
1010 .BufferOff:LDYThisROM:LDA&DFØ,Y:BE 
QBuf feroff3:LDAEmptyFlag:BNEBufferOffl:L 
DA#7 : JMPMessageEndZ 
1020 .BufferOffl LDX#5:SEI 
1030 .BufferOff2 LDAInsertExit,X:STAIns 
ertVec,X:DEX:BPLBufferOff2:LDA40: JSRMark 
: LDA#&F7: LDX#Ø: LDY#Ø: JSROSBYTE 
1040 .BufferOff3 JMPEndZ 
1050 .ClearBuffer:JSRInitTextPtrs:JMPEn 
dz 
1060 .InsertRoutine:PHP:SEI:CPX$43:BEQOIn 
sertl:PLP:JMP (InsertExit) 
1070 .Insert] STAAstore:PHA:TXA:PHA:TYA 
: PHA: LDAFullFlag:BEQInsert2 
1Ø8Ø PLA:TAY:PLA:TAX:PLA:PLP:SEC:RTS 
1098 .Insert2 LDAInputRAM:STATransferRA 
M: LDAAstore: SEC: LDXThisROM: JSRTransfer 
11ØØ INCTextInput:BNEInsert3: INCTextInp 
ut+1 
111Ø .Insert3 LDATextInput-*]:CMPTextMax 
+1:BNEInsert4:LDAText Input : CMPTextMax 
1120 BNEInsert4:LDATextMin: STAText Input 
:LDATextMin+1:STATextInput+1 
113Ø LDAInputRAM:CMPMaxRAM:BEQInsert3B: 
INCInputRAM:BNEInsert4 
1140 .Insert3B LDAMinRAM: STAInputRAM 
1150 .Insert4 JSRInputEqualsOutput:BCCI 
nsert5:LDA4]:STAFullFlag 
1160 .Insert5 LDA40:STAEmptyFlag 
11780 .Insert6 PLA: TAY: PLA: TAX: PLA: PLP:C 
LC:RTS 
1180 .RemoveRoutine: PHP: SEI : CPX#3: BEQRe 
movel : PLP: JMP (RemoveExit) 
119Ø .Removel PHA:LDAEmptyFlag:BEQRemov 
e2: PLA: PLP: SEC: RTS 
1200 .Remove2 TXA: PHA: TYA: PHA: BVCRemove 
4: JSRReadRAM 
121Ø .Remove3 PLA:PLA:TAX:PLA:LDYAStore 
: TYA: PLP:CLC: RTS 
1220 .Remove4 JSRReadRAM: INCTextOutput: 
BNERemove5: INCTextOutput+1 
1230 .Remove5 LDATextOutput+] :CMPTextMa 
x+]: BNERemove6: LDATextOutput : CMPTextMax 
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1240 BNERemove6: LDATextMin: STATextOutpu 
t:LDATextMin+1:STATextOutput+1 

1258 LDAOutputRAM: CMPMaxRAM: BEQRemove5A 
: INCOutput RAM: BNERemove6 

1260 .Remove5A LDAMinRAM: STAOutputRAM 

1278 .Remove6 JSRInputEqualsOutput:BCCR 
emove7: LDA#1: STAEmptyF lag 

1288 .Remove7 LDA$Ø:STAFullFlag:JMPRemo 
ve3 

1290 .CountRoutine: PHP: CPX#3:BEQCount]: 
PLP: JMP (CountExit) 

1300 .Count1 PLP:BVCCount2: PHP: LDA&FF:B 
PLCount 1A: PLP: RTS 

1310 .CountlA JSRInitTextPtrs:PLP:RTS 

1320 .Count2 PHP:BCSCount4 

1330 LDAFullFlag:BNECount3: JSRInputLess 
ThanOutput:BCCCount3 

1340 JSRInputRAMMinusOutputRAM: PLP: RTS 

1350 .Count3 JSROutputRAMMinusInputRAM: 
PLPtRTS 

1360 .Count4 LDAFullFlag:BNECount6:JSRI 
nputLessThanOutput : BCCCount6 

1370 LDAFullFlag:BNECount6:JSRInputLess 
ThanOutput : BCCCount6 

1380 JSRInputRAMMinusOutputRAM 

1390 .Count5 TXA: PHA: TYA: PHA: JSRRAMsize 
: PLA: STAYstore: PLA: STAXStore: TXA: SEC: SBC 
Xstore: TAX: TYA: SBCYstore: TAY: PLP: RTS 

1400 .Count6 JSROutputRAMMinusInputRAM: 
JMPCount5 

1419 .ShowBuffer 

1420 LDA42:JSRMessages: LDXThisROM: LDA&D 
F0,X:BNEShow! : LDA#4: JMPMessageEndZ 

1430 .Showl LDA#3:JSRMessages:LDARmptyF 
lag:BEQShow2: LDA# 5: JMPMessageEndZ 

1440 .Show2 LDAFullFlag:BEQShow3:LDA46: 
JMPMessageEndZ 

1450 .Show3 JMPEndZ 

1460 .Mark:LDYThisROM:STA&DFO, Y: RTS 

1470 .InitTextPtrs 

1480 LDAMinRAM: STAInputRAM: STAOutputRAM 
: LDATextMin: STATextOutput: STAText Input 
1490 LDATextMin+1:STATextOutput+1:STATe 
tInput+1 
1500 LDAs:STAEmptyFlag:LDA40:STAFullFl 
ag:RTS 
1510 .InputEqualsOutput 
520 LDAInputRAM:CMPOutputRAM:BNEIEO! 
1530 LDATextInput+1:CMPTextOutput+1:BNE 
EO1:LDATextInput:CMPTextOutput : BNEIEO!: 
RTS 
1540 .IEO1 CLC:RTS 
1550 .InputLessThanOutput:LDAInputRAM:C 
MPOutputRAM:BEQILTO! : RTS 
1560 .ILTO| LDATextInput+1:CMPTextOutpu 
t+1:BEQILTO2:RTS 

1570 .ILTO2 LDATextInput:CMPTextOutput: 
RTS 


x 


H 
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158Ø .InputRAMMinusOutputRAM: LDA#Ø: STAX 
store:STAYstore:STAAstore: TAX: TAY 

159Ø LDAInputRAM: SEC: SBCOutputRAM: BEQIR 
MOR] : STAAStore: JSRPartRAMsize 

1600 .IRMORI TXA:CLC:ADCText Input: TAX: T 
YA: ADCTextInput+1:TAY 

161Ø TXA:SEC:SBCTextOutput: TAX: TYA: SBCT 
extOutput-*]: AY:RTS 

1620 .OutputRAMMinusInputRAM 

1630 LDA40:STAXstore:STAYstore:STAAstor 
e: TAX: TAY: LDAMaxRAM:CLC : ADCOutput RAM 

1640 SEC:SBCMinRAM: SBCInputRAM:BEQOrmir 
l:STAAstore: JSRPartRAMsize 

1650 .Ormirl TXA:CLC:ADCTextMax: TAX: TYA 
:ADCTextMax*]: TAY: TXA:CLC:ADCText Input : T 
AX: TYA:ADCTextInput-*]: TAY 

1660 TXA:SEC:SBCTextOutput: TAX: TYA: SBCT 
extOutput+] : TAY: XA: SEC: SBCTextMin: TAX: T 
YA: SBCTextMin+1: TAY: RTS 

1670 .ReadRAM:LDAOutputRAM: STATransferR 
AM:CLC:LDXThi ROM: JSRTransfer : STAAstore: 
RTS 

1680 .RAMsize:LDA40:TAX:TAY:LDAMaxRAM: S 
EC: SBCMinRAM: STAAstore: INCAstore 

1690 .PartRAMsize 

1700 LDATextMax:SEC: SBCTextMin:STAXstor 
e: LDATextMax+1 : SBCTextMint+1:STAYstore 

171Ø .PartRAMsizel TXA:CLC:ADCXstore:TA 
X: TYA: ADCYstore: TAY 

1720 DECAstore:BNEPartRAMsizel:RTS 

1730 .Messages:ASLA: TAX: LDAZP: PHA: LDAZP 
*1: PHA: LDAMessageTable, X: STAZP: LDAMessag 
eTable*1,X:STAZP-*]:LDY4O 

1740 .Messages! LDA (ZP) , Y: BEOMessages2: 
JSROSASCI : INY:BNEMessages] 

1750 .Messages2 PLA:STAZP+1:PLA:STAZP:R 
TS 

1760 .MessageTable EQUWNone: EQUWNoSpare 
: EQUWMaster : EQUWOn: EQUWOf f : EQUWBare : EQUW 
Covered: EQUWCannot 

1770 .MessageEndZ JSRMessages:JMPEndZ 
1780 .None EQUS"No RAM found!":EQUBl3:B 
RK 

1790 .NoSpare EQUS"No spare RAM":EQUB13 
:BRK 

1800 .Master EQUS"Buffer ":BRK 

1818 .On EQUS"ON": EQUB13:BRK 

1820 .Off EQUS"OFF":EQUB]3:BRK 

1830 .Bare EQUS"EMPTY":EQUBl3:BRK 

1840 .Covered EQUS"FULL":EQUB]3:BRK 
1850 .Cannot EQUS"Can't: not empty!":EQ 
UB13:BRK 

1860 ]:NEXT:*K.9*SRLOAD Buffer 8000 4|M 
1870 *K.80SCLI("S.Buffer "+STRST"Q%+" "+ 
STR$7O$4" Ø FFFF8ØØØ") |M 
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The Master provides a 
greatly enhanced range 
of graphics features, if 
only you can follow the 
syntax. Thomas Nunns 
shows how to package 
up the graphics com- 
mands for ease of use. 


When Acorn 
that the Master 
a new Basic and 
of the commands 
BBC's Graphics Extension 
ROM were included, I hoped very much that 
some of the more common VDU calls would be 
anglicised. It was not to be, only the old 
MOVE and DRAW (and questionably PLOT) can 
be 'read'. What a pity that such an 
excellent and readable language as BBC 
Basic uses such an unintelligible string 
of graphics commands. As an example: 

MOVE 780,520:VDU25,157,680;400; 
must be used to draw a filled circle. 


MASTER 
SERIES 


VDU Graphics 


made simple 


announced 
contained 
that many 
from the 


But we can force the Master to 
understand English with the aid of a few 
procedures. The accompanying program 
contains a set of procedures to draw 
triangles, rectangles, parallelograms and 
circles. The procedures are listed from 
line 1000 onwards, and they are 
accompanied by examples which put them 
through their paces. 


The parameters used for each procedure 
are fairly self-explanatory, with xl,yl, 
x2,y2 etc. for the coordinates of 
successive points on the figure. The final 
parameter of each (except for the 
parallelogram, which is always filled) 
determines whether the object will be 
filled or not. If it is set to TRUE (or to 
-]) the object will be filled. Setting it 
to FALSE (or to Ø) will draw the outline 
only. For example, the following call to 
PROCcircle: 

PROCcircle (500,600 ,200 , TRUE) 
will draw a filled circle of radius 
units, centred at the point 500,600. 


200 


SOURCES 

The VDU commands are treated in detail 
in the Master Reference Manual part 1. But 
for Master and Compact users who are new 


NE ewe 
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to (and therefore probably mystified by) 
the advanced VDU commands, the best advice 
is to try and track down a manual for the 


Graphics Extension ROM (Acornsoft 1985 
ISBN Ø 907876 28 5). All of the GXR's 
commands are available unchanged in the 
Master's Basic, except for the sprites, 
and the GXR Manual not only has much 
clearer descriptions than the Master 
Reference Manual but it also includes many 
useful and pertinent examples. 


REM Program Simplifying VDU 25 
REM Version B 2.5 
REM Author Thomas Nunns 
REM Beebug December 1986 
REM Program subject to copyright 
60 : 
MODE129: VDU23, 1 | 
PROCtriangle(32,800,120,520,520,72 
Ø, TRUE) 

120 PROCrectangle (580,720,400, 260,TRUE 


130 PROCparallelogram(32,400,320,520,5 
60,240) 

140 PROCcircle(980,520,156,TRUE) 

150 VDU23,1,1|:END 

160 : 

1000 DEF PROCtriangle(xl,yl,x2,y2,x3,y3 
,fill) 

1Ø1Ø MOVE xl,yl 

1Ø2Ø DRAW x2,y2 

1Ø3Ø IF fill VDU25,85,x3;y3; ELSE DRAW 
x3,y3:DRAW xl,yl 

1Ø4Ø ENDPROC 

1Ø5Ø : 

1060 DEF PROCrectangle(x,y,width,height 
EU) 

1070 MOVE x,y 

1080 IF fill VDU25,1Ø1,x+width;y+height 
; ELSE PLOT] ,width,@:PLOT1,98,height: PLOT 
1,-width,@: PLOT] ,@,-height 

1898 ENDPROC 

1100 : 

1118 DEFPROCparallelogram(xl,yl,x2,y2,x 
3,y3) 
1120 
1130 


MOVE x1,yl 

DRAW x2,y2 

1140 VDU25,117,x3;y3; 

1150 ENDPROC 

1160 : 

1170 DEF PROCcircle (x,y,radius,fill) 
1188 MOVE x,y 

1198 IF fill code-157 ELSE code-149 
1208 VDU25,code,x*radius;y; 

1210 ENDPROC 
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Another selection of 

hints and other informa- 

tion for the Master and 

MASTER Compact rounded up by 

SERIES David Graham. 

M Checking Available RAM Banks 
His The following routine 
from Thomas Nunns prints 
which of the Master's 

internal RAM banks are 
Switched in. It can be 


incorporated into any program as a check 
before loading ROM images etc. 


1Ø A$-&44:R$-USR&FFF4 MOD&1ØØØ DIV&100 
20 FOR C$-0 TO 3:PRINT"Bank "2CÀ44; 

30 D$-2^C$:1F(R$ AND D%)<>D% PRINT" pag 
ed out" ELSE PRINT" available" 

40 NEXT 


Displaying and Saving Function Keys 


The operating system supplies a star 
command, *SHOW, to display the contents of 
any function key, but it cannot be called 
with a wildcard to display the whole set. 
The following can be used in an EXEC file 
called "showkeys" to neatly display them 
all. 


Kk kk k k k k k k k k k k k k kk k k k k kkk kk 


*| DISPLAY FUNCTION KEYS |* 
kkkkkkkkkkkkkkkkkkkkkkkkkkk 

P.':FOR A=Ø TO 9:PRINT"Key ";A;SPC2;:0S 
CLI ("SHOW"+STRS (A) ) : NEXT 


The following,. again stored in an EXEC 
file, perhaps called "savekeys", will save 
the keys to a file called "fkeys" in such 
a way that typing "*fkeys" at any time, 
will load them back in without disturbing 
any resident program or data etc. You may 
wish to delete the header and footer of 
the "fkeys" file which cause error 
messages as it loads in, but which 
otherwise do no harm. 


kkkkkkkkkkkkkkkkkkkkkkk 


*| SAVE FUNCTION KEYS * 

*| to file: fkeys + 
kkkkkkkkkkkkkkkkkkkkkkk 

*SPOOL fkeys 

FOR A=] TO 9:PRINT"*KEY";A;SPC2;:0SCLI ( 
"SHOW"+STRS (A) ) : NEXT 

*SPOOL 


ADFS Shortcuts 

Listed below are a number of shorthand 
ADFS commands for cataloguing various 
directories. 
COMMAND EFFECT 
* , -DISC-1 Cat DFS disc in drive 1 
*-DISC-.1 ditto 


mae Cat root directory in drive 1 


X Dp Cat first sub directory of 
root directory starting with 
"P" on current drive 

*.:1.9.P* As above, but drive ] 

*LCAT Cat library directory 

ADFS Wildcard Wipe 

Perhaps the most annoying omission 
from the ADFS command set is the DES 


equivalent of *WIPE which allows wildcards 
in specifying filenames to be deleted 
(like the ADFS *DESTROY), but which 
provides a YES/NO option before each file 
is deleted. This makes it an easy matter 
to clean up your discs, while retaining 
only those files which are really 
necessary. The following implementation, 
presented as an EXEC file goes some way to 
bridging the gap. When it is called, it 
requests a "Root name" for a group of 
files to be deleted, and then repeatedly 
asks for extensions to the root. It 
deletes these as they are entered, and 
both catalogues the current directory, and 
prints the free space remaining on the 
disc. It is halted by pressing Escape, and 
may be re-run by pressing fØ. It is, as 
you can see, self documenting. 


MODE 128 
kkkkkkkkkkkkkkkkkkkkkkkkkkkk 
*| *WIPE WILDCARD 

*| Enter Root name <ret> 
*| Then extension <ret> 
*| Escape to Exit 

*| To repeat, Press fØ 
kkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*KEYØ INPUT "Root name "AS:REPEAT:P.AS; 
:INPUT " ext "BS:OSCLI ("DELETE "+AS+BS) 
: OSCLI ("CAT") : OSCLI ("FREE") : UNTIL @|M 
*FX138,0,128 


+ * * + 


For further details of EXEC files see 
"Executive Power" in the previous issue of 
BEEBUG (Vol.5 No.6). 


Beebug December 1986 


SS án a ———— —————— AC a a 


Whatever your needs, 
David Graham's timely 
piece shows how to 
adjust the Master's 
built-in clock/calendar 
at the touch of a key. 


MASTER 


SERIES 
The Master's clock 
Master calendar needs adjustment 
Clock Manager from time-to-time: either 
E because it has drifted a 


few seconds, or in order 
to follow the vagaries of 
British Summer Time, or you may even have 
had to change the back-up battery. Either 
way, you should find this stand-alone 
utility a lot easier to use than the one 
on the Welcome disc. 


It provides an uninterrupted digital 
clock/calendar display, and allows any 
parameter to be individually adjusted. The 
left and right cursor keys move a pointer 
along the base of the display to select 
the parameter to be updated. The up and 
down keys are then used to adjust the 
selected parameter. There is full error 
trapping, and the program keeps a check on 
the range of all parameters. 


1Ø REM Program Clock Manager 
REM Version B 3.C 
30 REM Author David Graham 


40 REM Beebug December 1986 

5Ø REM Program subject to copyright 
68 : 

100 ON ERROR GOTO 1540 


MODE7: PROCsetup 

REPEAT: REPEAT 

PROCclock 

IS=INKEY (Ø) 

UNTIL NOT I% 

IF I$-136 OR I$-137 PROCparam 
IF I$-138 OR I$-139 PROCchange 
UNTIL FALSE 

198 : 

1000 

1016 

1020 

1030 

1040 

1059 

1060 

1070 

1Ø8Ø 

1Ø9Ø 

1108 

1119 

1120 
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DEF PROCsetup 

DIM array$(13,3) ,offset (19) 
DIM upper (19) , Lower (1Ø) 
N=1:VDU23,1|:*FX4,1 

FOR A-1 TO 7 

READ array$(A,l) 

NEXT 

FOR A=] TO 12 

READ array$ (A, 3) 

NEXT 

FOR A=1 TO 8 

READ offset (A) ,upper (A) , lower (A) 
NEXT 


1130 PRINTTAB (6,12) "^" 

1140 ENDPROC 

1150 : 

1160 DEFPROCclock 

1170 FOR A=1 TO 2 

1180 PRINTTAB (4,9+A)CHRS134;CHRS141;TIM 
ES 

1190 NEXT: ENDPROC 

1200 : 

1218 DEFPROCparam 

1220 N-N-(I$-136) * (N<>1) + (I$2137) * (N^ 7 
) 

1230 PRINTTAB (6,12) SPC (offset (N) ) "^"; SP 
C(24-offset (N) ) 

1240 ENDPROC 

1250 : 

1260 DEFPROCchange 

1270 inc=2*(1%=138)+1 

1280 IF N=2 OR N>3 THEN PROCdigits 

1290 IF N=] OR N=3 THEN PROCtext 

1300 IF flag THEN TIMES=LEFTS (TIMES,off 
set (N) ) -newS- RIGHTS (TIMES, 25-0ffset (N+1) 
) 

1310 ENDPROC 

1320 : 

1330 DEFPROCdigits 

1340 flag-TRUE 

1350 Z-offset(N)-*1-2* (N24) 

1360 newS=STRS (VAL (MIDS (TIMES$,2,2)) *inc 
) 

1370 IF VAL(newS) >upper (N) OR VAL (newS) 
<lower (N) THEN flag-FALSE 
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1380 IF LEN(newS)=1 THEN newS="Ø"+newS 
13980 IF N=4 THEN newS="19"+newS 

1400 ENDPROC 

1410 : 

1420 DEFPROCtext 

1430 old$=MIDS (TIMES, (1-7* (N=3) ) ,3) 
1440 B=Ø:flag=TRUE 

1450 REPEAT:B=B+1 

1460 UNTIL array$(B,N)-old$ 

1470 newS=array$ ((B+inc) ,N) 

1480 ENDPROC 

1490 : 

1500 DATA Mon,Tue,Wed,Thu,Fri,Sat,Sun 
1510 DATA Jan,Feb,Mar,Apr,May,Jun,Jul,A 


ug , Sep, Oct , Nov , Dec 
1520 DATA 0,0,0,4,31,1,7,0,0,11,99,0,16 
,23,0,19,59,0,22,59,0,25,0,0 
1538 : 
1540 ON ERROR OFF:VDU23,1,1]|:*FX4 
1550 PRINT:REPORT:PRINT" at line ";ERL 
1560 END 
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we took a look 
at the way in 
which the info- 
rmation about 
any character 
is stored in 
the Beeb, and 
how that info- 
rmation can be 
read by the 
user and manip- 
ulated. This 
month we will 
put the "Read 
Character" rou- 
tine, from the 
N last issue, to 

further use, 
where it will form the basis of a set of 
procedures to generate double height and 
rotated text. These routines may easily be 
imported into your own programs to enhance 
screen displays. 


st 


course 


Character 
Formation 
Part 2 


The rotated character routine is 
particularly useful for labelling the 
vertical axes of charts and graphs, while 
the enlarged character procedure can be 
used to embellish program title screens 


and menus. 


DOUBLE HEIGHT TEXT 

Program 2 of last month's article 
contained a procedure to read the dot 
pattern of the Beeb's character set. This 
was listed from line 1000 onwards, and was 
accompanied by routines which called this 


procedure, and then defined a number of 
characters derived from it, so as to 
produce upside-down and (in listing 3) 
inverted characters. Generating double 
height text using the same "Read 
Character" procedure is quite 
straightforward. 


Essentially it involves defining two 
new characters: one for the top half of 
the double height character, and the other 
for the bottom. This is achieved by 
doubling up the definition. When the "Read 
Character" procedure is called, it emerges 
with the array B(n) containing the eight 
pieces of data for the row definitions of 
the specified character, in such a way 
that B(0) contains the value for the top 
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MG HE 
David Graham continues to rov, B( 1) the next, and so 
experiment with the Beeb's on. All we need to do is 
character set. to define two new 
characters (251 and 252) 
Last month as follows: 


VDU23,251,B(Ø) ,B (Ø) ,B(1) ,B(1) ,B(2) ,B(2 
) ,B(3) ,B(3) 

VDU23,252,B (4) ,B(4) ,B(5) ,B(5) ,B(6) ,B(6 
) ,B(7) ,B(7) 


Notice how the doubling up has been 
performed, with each row value used to 
define two adjacent rows of the new 
characters. 


Listing ] 
135 big$=CHR$ (251) +CHRS (19) +CHRS (8) +CH 
R$ (252) +CHRS (11) 
212 VDU23,251,B(0) ,B(Ø) ,B(1) ,B(1) ,B(2) 


rB (2) ,B(3) ,B(3) 

214 VDU23,252,B (4) ,B(4) ,B(5) ,B(5) ,B(6) 
,B(6) ,B(7) ,B(7) 

290 PRINT'TAB (15) bigs 


These lines have been incorporated 
into Listing 1. If you append this to last 
month's Program 2, and run the resulting 
program, you will see characters entered 
from the keyboard appearing in double 
height mode, as well as being inverted and 
reversed out. Line 135 of Listing 1 
contains an important statement. It 
defines a text string big$ which is used 
to print each double height character. As 
you can see it actually incorporates a 
string of five individual characters. If 
we just went ahead and printed the two 
halves of our double height character, 
they would be printed side by side, which 
would be quite useless. 


The string big$ fixes it all for us. 
It is defined as the top half of the 
double height pair, followed by character 
10, which sends the text cursor down one 
line, then character 8, which sends it 
back one position. It then prints the 
bottom half (in the correct position now), 
and then moves up one line (character 11), 
ready to print the next double height 
Sequence. So every time we print bigS, a 
complete double height character will be 
correctly printed. Which one it is, 
depends on the definitions of characters 
25] and 252. 


To make our double height routine more 
useful, we can parcel it up as a procedure 
in such a way that we can send whole 
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strings of text to it in a single 
operation. This is achieved in Listing 2, 
which is a stand-alone program. It 
contains the "Read Character" procedure at 
line 1090, though this has been slightly 
modified from last month's version to make 
it more portable, and its name is now in 
lower case. 


Listing 2 

100 REM DOUBLE HEIGHT PROCEDURE 

110 REM WITH EXAMPLE v4 

128 > 

130 DIM B(8),D210 

140 big$=CHR$ (251) +CHRS (19) +CHRS (8) +CH 
R$ (252) +CHRS (11) 

150 : 

16Ø MODE4 

170 PRINTTAB (8,3); 

180 PROCdouble ("DOUBLE HEIGHT ROUTINE" 


190 PRINT' 
200 : 
210 REPEAT 
220 INPUT'''"Enter text «return»? "inpu 
t$ 
230 PRINT 
240 PROCdouble (input$) 
250 UNTIL FALSE 
260 : 
1000 DEF PROCchread (I) 
1010 LOCAL A:?D$-I 
1020 X$-D$MOD256:Y$-D$DIV256:A$-&A 
1030 CALL &FFF] 
1040 FOR A=Ø TO 7 
1050 B(A)=D%?(A+1) 
1060 NEXT 
1070 ENDPROC 
1080 : 
1099 DEFPROCdouble (text$) 
1100 LOCAL A 
1110 IF LEN(text$)=Ø THEN ENDPROC 
1120 FOR A=1 TO LEN(textS) 
1130 PROCchread (ASC (MIDS (text$,A,1))) 
1140 VDU23,251,B(0) ,B(0) ,B(1) ,B(1) ,B(2) 
;B(2) ,B(3) ,B(3) 
1150 VDU23,252,B(4) ,B(4) ,B(5) ,B(5) ,B(6) 
;B(6) ,B(7) ,B(7) 
1160 PRINTbig$; 
1170 NEXT 
1180 ENDPROC 


The double height procedure is defined 
from line 1090. It has a parameter (textS) 
which contains the text which is to be 
printed in double height. It first checks 
that this variable is not empty (line 
1118), and then enters a FOR-NEXT loop 
running from 1 to the length of the text, 
which takes one character at a time from 
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the text string, passes it to PROCchread 
(line 1138), and creates the two halves of 
the character. The pair are printed using 
big$ (line 1160), and then the process is 
repeated with the next character from 
text$, and so on, until the whole of the 
contents of text$ have been printed in 
double height. 


DOUBLE HEIGHT ROUTINE 


[nter text return? BEEBUG for the BBC ^ 
cr 


BEEBUG for the BBC aicro 


Enter text <return> and Master series 


and Master series 


Enter text «return? including Compact 


including Compact 


Enter text «return? _ 


The procedure is accompanied by an 
example of its use. Line 180 calls 
PROCdouble and causes the words "DOUBLE 
HEIGHT ROUTINE" to be printed in double 
height at the top of the screen. Notice 
how the print position is set using TAB in 
line 170, immediately before calling 
PROCdouble. The program then accepts input 
from the user (line 220) and passes this 
to PROCdouble with predictable results. 
You may alter line 168 to any graphics 
mode that you wish (i.e. modes Ø, 1, 2, 4 
or 5), and may import the two procedures 
(lines 1000 - 1180) into your own 
programs, but you will also need lines 130 
and 140. 


ROTATED TEXT 


PROCchread can also be used as the 
basis for a procedure to rotate characters 
through 90 degrees. This technique is used 
in plotting packages to allow the 
labelling of axes. If we are going to 
rotate a character we must perform a 
subtle reorganisation of its bit pattern. 


Again, we can use PROCchread to read the 
data from the bit pattern into the array 
B(n). But we can no longer rely on 


shuffling the order of the 8 row 
definitions. This can be used for standing 
the character on its head, or doubling its 
height. But to rotate it, we need to take 
the bit definitions of each column of the 
8x8 graphics grid, and convert them into 
the rows of the new character. 
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Because the definitions are packed 
into just eight bytes, we need to unpack 
them in order to get at the colum values. 
This involves a spot of binary arithmetic, 
since each pixel of the character's 8x8 
grid is represented by a binary digit. 
Listing 3 contains a complete rotation 


Listing 3 
100 REM SIDEWAYS PRINT PROCEDURE 
110 REM WITH EXAMPLE v5 
120 : 
130 DIM B(8) ,D$190 
140 sideS=CHRS (246) +CHRS (11) +CHRS (8) 
150 MODE4 
160 PRINTTAB(8,1)"SIDEWAYS PRINT ROUTI 
NE" 
170 pos=Ø 
180 REPEAT:pos=pos+1 
198 INPUT TAB(2,pos+4)"Enter text «ret 
urn» "word$ 
200 PRINTTAB (pos, 29) ; 
210 PROCside (word$) 
220 UNTIL pos>9 
230 PRINTTAB (0,31) ; 
240 END 
250 : 
1000 DEF PROCchread (I) 
19010 LOCAL A:?D$-I 
1820 X%=D%M0D256:Y%=D%DIV256:A%=&A 
1030 CALL &FFF1 
1940 FOR A=Ø TO 7 
1050 B(A)=D%?(A+1 
18060 NEXT 
1070 ENDPROC 
1080 : 
1090 DEFPROCside(text$) 
11900 LOCAL A,I,N,value 
1110 IF LEN(text$)=Ø THEN ENDPROC 
1120 FOR A=1 TO LEN(textS) 
1138 PROCchread (ASC (MIDS (text$,A,1))) 
1140 VDU23,246 
1150 FOR N=Ø TO 7 
1160 value=Ø 
1170 FOR I=Ø TO 7 
1180 value-value-2^I*((B(7-I) AND 2^N)» 
Ø) 
119Ø NEXT 
12ØØ VDU value 
121Ø NEXT 
1220 PRINTsideS; 
123Ø NEXT 
124Ø ENDPROC 


procedure (lines 1090 - 1240). It makes 
use of PROCchread (lines 1000 - 1070), and 
is accompanied by an example. When the 
program is run, it asks for a string of 
text, followed by «Return». This is then 
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printed sideways from the bottom of the 
screen; and up to 1Ø strings may be 
printed in this way before the program 
terminates. This program is somewhat more 
complex than usual for this series, and 
rather too convoluted to describe in full. 
It is mnevertheless easy to incorporate 
into any host program. 


If you are going to use the procedure 
in another program, you will need lines 
1000 - 124Ø, together with lines 130 and 
140. Simply set the required print 
position with a TAB statement (as in line 
200), and then call PROCside with the 
required text string as a parameter. This 
may be a variable, as in the example (line 
210), or a literal string as follows: 

PROCside("Vertical Axis") etc. 
Character 246 is used to hold the rotated 
image, and you may notice that the VDU23 
definition has been split up and placed in 
a FOR-NEXT loop for convenience. As with 
the Double Height program, a string is set 
up in line 140 to print the character, and 
then move the cursor to the next print 
position, immediately above the position 
of the last character. 


ZZZ 


Character to be 
rotated 


It is hoped that these articles have 
given you a taste for character 
redefining, and that you may be tempted to 
experiment along similar lines, and maybe 
even try some new manipulations of your 
own. For example, you may like to have a 
go at double height reversed out, or for 
the foolhardy, what about double height 
rotated or double width ? 


This month's magazine cassette/disc 
contains both programs from this article, 
plus an extra routine to print double 
height double width text - particularly 
useful for mode Ø applications. 
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7Ø2Ø REPEAT *FX15 1 
7030 A-INSTR("AaDd" ,GET$) : UNTILA 
7040 PROCwindowl:PRINTTAB (11 ,s£*9) CHR$1 
31; 

7050 IFA»20$-"«":PRINT"Descending order 
" ELSEO$=">": PRINT"Ascending order" 

7060 ENDPROC 

7078 : 

8000 DEFPROCopen (p$) : LOCALI 

8910 IFp$=""VDU7: PRINTTAB (10) CHR$129"NO 
FILE GIVEN":F1=0:ENDPROC 

8020 Fl-OPENIN (p$) 

8030 IFF1=ØVDU7:PRINTTAB (19) CHR$129"NO 
SUCH FILE":ENDPROC 

8040 PTR#F1=0: INPUT#F1 ,rec,recn,recs,f: 
max1= (&7CØØ-B%) DIV (rec-1) -4 


8Ø5Ø FORI-lTOf:INPUT4Fl,field$,width$(I ` 


) :field$(I)=FNstrip(field$,".") :NEXT 
8060 CLOSE#F1] : ENDPROC 

‘8070 : 

9000 DEFPROCnopen (p$) : LOCALI 

9910 IFpS=""VDU7: PRINTTAB (10) CHR$129"NO 
FILE GIVEN":F2-0:ENDPROC 

99020 F2-OPENIN (p$) :CLOSE#F2 

9030 IFF2<>ØVDU7:PRINTTAB (10) CHR$129"FI 
LE EXISTS":IFFNask("Overwrite existing f 
ile? (Y/N) : ")>2 F2-0:ENDPROC 

9040 PROCoscli("SAVE "+p$+" Ø+"+STRS" (F 
DR+recn*recs) ) 

9050 F2=OPENUP (pS) : PTR#F2=0: PRINTHF2, re 
c,recn,recs,f 

9060 FORI=1TOf: PRINT#F2,LEFTS (field$ (I) 
+STRINGS (12,".") , 12) ,width% (I) : NEXT 

9070 CLOSE#F2: ENDPROC 

9080 : 

10000 DEFPROCClose:VDU7 

10010 PRINTTAB(2)CHRS$134"Files closed - 
"srec-l;" records in use" 

10020 CLOSEHØ 

10030 ENDPROC 

10040 : 

11000 DEFPROCsort 

11010 LOCALI$,J$,K$,L$,U$,TS$:L$-1f-4:PRO 
Cwindow2: PRINTCHRS 1 33CHR$136; 

11020 F1=OPENIN (op$) :F2=OPENUP (np$) 
11030 s$="":FORI%=1TOsf :s$=s$+"MIDS (reco 
rd$ ("«STR$sf1d$ (I2) +") , "+STRSstrt% (I2) +" 
r "+STRS1en% (I2) +") +": NEXT: s$=LEFTS (S$,LE 
Ns$-1) 

11040 PRINTTAB (13,0) "READING" 

11050 FORI$=1TOrec-1 : PROCread (I$) 

119060 $(B%+L3* (I$-1) ) =EVALSS+RIGHTS ("ØØ" 
+STRSI%,3) : NEXT 

11Ø7Ø tS=tS$+"TS$S"+0S+t$+"S (B3+L3* (13-1) )" 
11088 PRINTTAB (13,9) "SORTING" 

11090 K%=1:REPEAT K%=3*K%+1:UNTIL3*K%+1> 
-rec-] 

11100 REPEAT K$-K$DIV3 
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SORTING DATA FILES 


11118 FORJ$-K$*lTOrec-]:T$-$ (B3+L3* (J$-1 
)) : 1$-J$-K$ 

11120 REPEAT U$-EVALt$:1IFNOTUS $(B$4L$*( 
I$4K$-1)) =$ (B3+L3* (I$-1)) : I$-I$-K$ 

11130 UNTILUSORI$«]:$(B24L2* (I$4K$-1)) =T 


11140 NEXT:UNTILK$-1 

11158 PRINTTAB (13,0) "WRITING" 

11168 FORI$=1TOrec-1 : J=VALRIGHTS ($ (B$*L 
$* (I$-1)),3) 

11170 PROCread (J%) : PROCwrite (1%) 

11180 NEXT:CLS:ENDPROC 

11190 : 

13000 DEFFNask (msg$) 

13010 LOCALA: PRINTCHRS1 34msg$ ; CHR$131; 
13020 REPEAT: A-INSTR ("YyNn" , GET$) : UNTILA 
: IFA>2THENPRINT"N"ELSEPRINT"Y" 

13Ø3Ø =A 

13040 : 

14000 DEFPROCwindow! 

14010 VDU28,0,21,39,3: ENDPROC 

15000 DEFPROCwindow2 

15019 VDU28,0,24,39,21,12: ENDPROC 

15020 : 

16000 DEFPROCread (n) : LOCALI 

16010 PTR&Fl-FDR*recs* (n-1) 

16020 FORI=1TOf:INPUTHF],recordS (I) : NEXT 
16Ø3Ø ENDPROC 

16940 : 

17000 DEFPROCwrite (n) : LOCALI 

17010 PTR#F2=FDR+recs* (n-1) 

17020 FORI=1TOf: PRINT#F2, recordS (I) :NEXT 
17Ø3Ø ENDPROC 

17040 : 

18000 DEFFNstrip (p$,c$) : LOCALI : I=LENp$+1 
18010 REPEAT: I=I-1:UNTILMIDS (p$,I,1) €»c$ 
ORI=Ø 

18020 =LEFTS (p$,1) 

18Ø3Ø : 

19ØØØ DEFFNfwidth (pS) :IFp$=""=Ø 

19Ø1Ø R=Ø:REPEAT:R=R+1:UNTILp$=fieldS(R) 
OR R=f 

19020 IFR-f ANDp$<>field$(R) VDU7: PRINTTA 
B(1@)CHR$129"NO SUCH FIELD"':=@ ELSE -wi 
dth$ (R) 

19030 : 

20000 DEFPROCoscli (Sos) 

20010 LOCALX$,Y$ 

20020 X%=os:Y%=os DIV256:CALL&FFF7 

20030 ENDPROC 

20040 : 

21000 DEFPROCerror 

21010 IFERR-17PRINT'TAB (12) CHR$129"SORTI 
NG ABORTED": GOTO21040 

21020 ONERROROFF 

21030 REPORT: PRINT" at ";ERL 

21049 PROCclose: VDU26 

21050 ENDPROC Ë 
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Speech Translation 


Superior Software's 
"Speech!" program uses two 
commands:  *SAY which does 
its best to pronounce a 
string written normally, 
and *SPEAK which utters a 
String made up of the set 
phonemes. In fact *SAY 
translates the  'English' 


String into phonemes and 
puts them in a buffer 
starting at &A00 (normally 


the cassette input buffer) 


before using *SPEAK to 
deliver them. 

To See how Speech! 
translates English into 


phonemes, and so learn a 
little about the  phonemes 
themselves, this buffer can 
be inspected after a *SAY 
command is issued. Type in: 
*SAY HELLO 
PRINT $&AØØ 
This will give '/HEHLOW' - 
the phoneme version of 


'hello'. 
Alan Street 
Disabling DFS's 
Acorn's 1770 DFS and 


ADFS may be 'permanently' 
disabled - without restor- 
ation with Ctrl-Break - by 
the following method.  Poke 
any number with the top bit 


Set (e.g. &80) into the 
relevant location in the 
ROM private workspace 


pointer table. The correct 
location can be found by 
adding the ROM socket 


number (0-15) to &DFØ. The 
ROM socket number can be 
found with the *ROMS 
command. For example, if 
the DFS is in socket 13 
use: 
?&DFD-&80 
Then press Break. This will 
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disable the ROM until the 
machine is switched off and 
on, or the ROM is 
specifically re-enabled by 
poking a number with the 
top bit reset (e.g. zero) 
into the location, and 
pressing Break again. 


It is worth noting -the 
socket number of the DFS, 
as once the DFS is 
disabled, the *ROMS command 
won't work! 

J.F.Button 


Cursor Turn-Off 


Although the cursor can 
be simply turned off using: 

VDU23,1,0;0;0;0; 
this effect is cancelled by 
joining and separating the 
text and graphics cursors 
(VDU4 and 5). To turn off 
the cursor 'permanently' - 
until a change of mode - 
use the two *FX commands: 

*FX151,0,11 

*FX151,1,Ø 
These FX commands access 
the registers of the 6845 
display controller chip to 
remove the cursor. 

C.N.Brickman 


Star Command Workspace 


When writing your own 
Star commands, you often 
need a little zero page 
workspace. Although the 32 


bytes from &7Ø to &8F are 
allocated to the user's 
applications, these should 
be avoided if the routine 


is to be used by other 
programs which might 
themselves need this space. 
Instead there are eight 
bytes from &A8 to  &AF 
Specifically reserved as 
Star command workspace. 
Arthur Neasden 


BEEBUG Editor Extensions 


The ` excellent Full 
Screen Editor program in 
BEEBUG Vol.4 No.7 can be 
extended with the following 
short additions: 


To work with Shift 
enabled - i.e. a key with 
Shift producing lower case 


- add :*FX202,160 to the 
end of line 32009. 

For faster cursor 
movement add :*FX12,4 to 


the end of line 32199. 


To produce an easy- 
to-see block editing cursor 
add :VDU23;10,0;0;0; to 
line 32220. 


To restore the line 
cursor and clear the screen 
on Escape amend line 32360 
to read: 

VDU12,23;10,18;0;0;0; : *FX4 
D.A.Stevens 


Vertical Printing 


Printing a string with 
each letter the correct way 
up but beneath the previous 
one is useful for labelling 
the Y-axis of a graph, 
amongst other applications. 
However, it is tedious (and 


Slow) to ` produce the 
desired effect with a 
PRINT TAB command for each 
letter even if a loop is 
used. Instead, define a 
text window only one 


character wide, but several 
lines deep, and PRINT the 
string as normal. The Beeb 
does all the hard work by 
filling the window with the 
string of characters. 
G.Hami lton 
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DFS Gets Confused 

I am sure that I am not 
the only user to have the 
following problems when 
using  ViewStore. I have 
confirmed that the first is 
due to my use of the 9.9 
DFS, but wonder if this is 


also true in the second 
case. 
l.The index utility will 


not produce a valid index. 
All seems to work correctly 


but the eventual index 
shows no records in the 
datafile. 

2.The select utility works 


correctly to printer, but 
when using file output and 
sorting the resultant file, 
the whole contents of side 
2 of the disc are backed up 
on side Ø, causing a loss 
of data. 


Would it be too much to ask 
that software senses its 
operating environment and 
either warns the operator 
or aborts operation? 
S.Waller 


Both problems are due to 
the 0.9 DFS which according 
to Acorn "gets confused" 
when files are open on more 
than one side of a DFS 
format disc. The DFS has "a 
neat trick of writing 
catalogues to the wrong 
disc surface which is 
usually disastrous"! The 
problem can be solved by 
upgrading from DFS 9.9 to 
DFS (or DNFS) 1.2 or later 
versions. Apparently View- 
Store users are warned of 
this need! ViewSpell users 
are also likely to be 
similarly affected. 
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Typing Problems 


There is a severe limit- 
ation in the use of the 
*TYPE command to re-create 
a graphics screen from a 
*SPOOLed file generated by 
a graphics program (see 
*SPOOL Graphics, BEEBUG 
Vol.5 No.l). Characters 10 
or 13 generated by the 
original program will be 
correctly stored in the 
*SPOOL file, but incorrect- 
ly executed by the *TYPE 
command: 18 will be ignored 
and 13 will be replaced by 
1Ø and 13. 


The following procedure 
will simulate the *TYPE 
command correctly: 


DEFPROCTYPE (AS) : LOCALA$ , I$: 
A$-OPENIN AS:FOR I$-] TO EX 
T4A$:VDU BGET#A%: NEXT:CLOSE 
HAS: ENDPROC 

Sebastian Lazareno 


Richard Lambley, the author 
of the original article, 
comments: Since *TYPE is a 
function of the DFS its 
effects may vary from one 
DFS to another. The Basic 
procedure (given above) 
certainly does provide a 
general solution, though at 
some cost in speed. 


Although *TYPE may seem to 
create a problem, I have 
not found it a limitation 
in practice. Where a 
problem really does arise 
is with the Master series. 
*TYPE now traps all 
characters with bit 7 set 
(e.g. Teletext codes). A 
new command *PRINT looks 
rather like the old *TYPE, 
but routes everything to 
the VDU drivers. So for 
ASCII 18 you get Linefeed 


and for 
nothing extra. 


13 Return - 


Mastering ROM Software 


In BEEBUG Vol.4 No.8 you 
previewed the Master 128, 
indicating that the use of 
sideways ROM software was 
out. But in more recent 
editions I get the impress- 
ion that there are ways in 
which Wordwise and other 
similar ROMs can reside and 
operate in these machines. 
As a fully committed Word- 
wise Plus, Spellcheck III 
and Inter-sheet user, I am 
interested to know if I can 
still use this software in 
a new Beeb. 

John Wardley 


As Mr Wardley implies, the 
early information that we 
gave from Acorn regarding 
the use of sideways ROMs on 
the Master proved sub- 
sequently to be inaccurate. 
Sideways ROMs can be used 
on the Master, either 
fitted internally in a 
vacant ROM socket (two 
16/32K, plus one 16K), or 
by using a ROM cartridge 
(16 /32K). We have a Master 
in use in the magazine 
office that normally has 


Wordwise Plus fitted 
internally with Acorn's 
ViewSpell and our own 


Spellcheck III fitted ina 
ROM cartridge, and all work 
well. 


Of course, the fact that a 
ROM can be fitted to the 
Master does not in itself 
ensure that the ROM soft- 
ware is compatible with the 
Master, and this should be 
checked with the ROM 
supplier before purchase. 
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ME 


This month, Surac shows how to economise on your 
programming efforts by using so-called ‘data-driven’ rou- 


tines. 

Many programs often 
need the same sort of 
code time and again. It 
is tedious to keep 
re-writing it and so, 
perhaps, you build up a 
library of standard 
procedures and functions, 
*EXECing them into your 
programs as you need 
them. Sometimes, though, 
that doesn't work too 
well, particularly if a 
routine has a lot of 
special data associated 
with it. 


A good example is a 
menu. All menus are much 
the same - they display a 
list of choices, accept 
and check a selection, 
and then send the choice 
off somewhere else to 
drive the main program. 


However, each menu has 
different choices. You 
end up  rewriting the 
code, and playing around 


with TAB settings to get 


the effect you want. 
Several | menus in a 
program use a lot of 
memory, too. 

Professional pro- 


grammers would not dream 
of taking that approach - 


they are too busy to 
re-invent wheels. In- 
Stead, they would use a 


Standard routine and feed 
it with a list of data to 


make it do the job they 
wanted. 
This technique of 


writing a single program 
which is fed with data to 
do different jobs is 
potentially very power- 
ful. I've suggested a 
menu, but that's not the 
only option. How about a 
routine to validate a 
string against a number 


of possibilities? This approach is 
especially useful if you have disc(s), but 
that's far from essential. 


To illustrate the approach, let's 
look at a general-purpose menu routine. As 
a minimum, it should take its information 
from DATA statements and be capable of 
dealing with any screen mode. You wouldn't 
always need all the bells and whistles of 
the result but it shows all the key 
points. 


1ØØØØ DEF FNMenu 
1ØØ1Ø LOCAL cols%,maxcol%,maxlines%, 
mode , nochoices%,OK,Opt$, rows$, 
title%,width,I%,J%,N%,X% 
1ØØ2Ø RESTORE 2ØØØØ 
1ØØ3Ø CLS 
10040 A%=135: !&7Ø=USR&FFF4:mode=?&72 
1ØØ5Ø width=4Ø 
10060 IF mode=Ø OR mode=3 THEN width=8Ø 
10070 IF mode-2 OR mode=5 THEN width=2Ø 
1ØØ8Ø maxlines%=32 
10090 IF mode=3 OR mode=6 OR mode=7 
THEN maxlines%=25 
READ titles 
titleS=LEFTS (title$,width) 
PRINT TAB((width-LEN(titleS) ) /2,1) 
titles 
16138 maxcols%=FNMin (width DIV 20,3) 
190140 READ nochoices$ 
190150 nochoices%=FNMin (nochoices?, 
maxcols$* (maxlines$-6)) 
10160 cols%=(nochoices$-1) DIV 
(maxlines%-6) +1 
10178 rows%=INT(nochoices%/cols%+.8) 
10180 FOR I$-0 TO cols%-1 


18108 
18118 
18129 


10199 X$=width/2-cols%*1Ø+1%*2Ø 
10200 FOR J$-0 TO rows%-1 
102190 N$-I$*rows$4J$4] 
102298 IF N%<=nochoices% 
THEN PROCPChoice 
10230 NEXT 
10240 NEXT 
10250 REPEAT 
10260 ` PRINT TAB(12,maxlines%-2) SPC6 
190270 PRINT TAB(Ø,maxlines%-2) "Which 
Item? "; 


r 
10280 INPUT ""Opt% 


10290 PRINT TAB(Ø,maxlines%-1) 

SPC (width-1) ; 
10300  OK=Opt%<=nochoices% AND Opt$»0 
10310 IF NOT OK THEN VDU 7:PRINT 


TAB (Ø,maxlines%-1) "1 - "; 
nochoices%;" ONLY!"; 
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1Ø32Ø UNTIL OK 
1Ø33Ø =Opt% 
19998 : 


11ØØØ DEF PROCPChoice 
11Ø1Ø READ choices 


11020 PRINT TAB(X%,J%+3) RIGHTS(" "+ 
STRS(N3)+". ",4)+ 
LEFTS (choice$,15) 

11030 ENDPROC 

11990 : 


12000 DEF FNMin (a,b) 

12010 IF b<a THEN =b ELSE =a 

19999 : 

2ØØØØ DATA "THIS IS A SAMPLE TITLE" 

20010 DATA 39:REM ** No. of choices 

20020 DATA "Choice Ø","Choice 1","Choice 2 
","Choice 3","Choice 4","Choice 5","Choice 
6","Choice 7","Choice 8","Choice 9" 

20030 DATA ...and all other menu lines 


The routine is a function returning a 
number, corresponding to the choice, which 
the rest of the program can use. 


At the start, it RESTORES the DATA 
pointer to the correct line - there may be 
several functions for different menus in a 
single program. It then reads the mode 
using OSBYTE 135 to establish the maximum 
number of lines and columns on the screen. 
This is essential if the routine must 
handle any mode, but could otherwise be 
simplified. 


It then starts building the screen. It 
reads the title, limits its size to the 
maximum display width, and prints it at 
the top of the screen (lines 10100-19129). 
The routine is set up to print the menu 
choices in columns 20 characters wide. 
Since this allows three columns in modes 0 
and 3, two in 1, 4, 6 and 7, and just one 
in modes 2 and 5, line 10130 works out how 
many columns of choices the function can 
actually display. 


The number of choices to be displayed 
is then read from the DATA statement. To 
play safe, line 10150 limits the number of 
choices to how many can be displayed. It 
allows 3 clear lines at the top and bottom 
of the screen. Thus, the 80x25 display of 
mode 3 has a maximum of 57 menu choices 
[3*(25-6)]. NOTE - although the function 
can accept this sort of number, 
easily-used menus rarely present more than 
6-9 choices at a time. 


Lines 10160 and 10170 work out how 
many columns and lines of choices to 
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display; a single column will do for a 
few. The loop at lines 10180-10240 
positions each choice and, via 


PROCPChoice, displays it on the screen 
with an identity number. Line 11020 aligns 
the numbers, and limits each choice to the 
maximum field size. The latter approach 
means that if a menu choice has been 
defined with too many characters, only the 
first 15 will appear, but it keeps the 
Screen tidy. 


Finally, lines 10250-10320 prompt for 
input, and check for a valid selection. 
They make sure that only numbers in the 
range displayed on the screen are 
accepted. 


The main limitation of this routine is 
that, because of the DATA statements, it 
wastes a lot of memory. A separate 
function, with its own set of DATA, is 
needed for every menu in a program. You 
could use just one function, and pass the 
location of its DATA in a parameter: 

10000 DEF FNMenu (dataline) 


198020 RESTORE dataline 


That would work, but it would be very 
dangerous. Why? If you  renumber the 
program, the location of the DATA will 
change but the references in the calls to 
the function would not alter. The result 
would be total confusion. You would also 
Still need precious memory for your DATA 
Statements. 


A much better way, but it needs discs, 
is to hold the data for each menu in a 
disc file, and let the function OPEN the 
file, INPUT the data, and then CLOSE the 
file afterwards. The following changes 
would be needed: 


10000 DEF FNMenu (files) 

109010 LOCAL cols%,maxcol%,maxlines%, 
mode ,nochoices%,0K,0pt%,rows%, 
title% ,width,F%,1%,J%,N%,X% 

10020 F%=OPENIN (files) 

190100 INPUT#F%,titles 

18140 INPUT#F% ,nochoices$ 

18325 CLOSE#FS 

11918 INPUT#F%,choiceS 


You would also need a separate program 
to create the data files, but I leave that 


exercise to you. 
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Title : Cluedo 
Supplier : Leisure Genius 
Price : £12.95 (Tape) 
Reviewer : Alan Webster 
Rating Histo: 

Cluedo is the third 


'board' game released for 
the BBC micro by Leisure 
Genius, following hot on 
the heels of Monopoly and 
Scrabble. Cluedo is a 
who-dunnit? game in which 


up to six players (with 

Title : Chart Challenge 

Supplier : Outlook 
terprises 

Price 

Rating D 


Reviewer : Alan Webster 


Chart Challenge is a 
pop quiz containing over 
60,000 questions covering 
every artiste who has had 
a hit record in the U.K. 
between 1952 and 1985, as 


Tape or Disc £17.95 probably the 


any number of these being controlled by 
the computer) try to solve a murder that 
has taken place at "Tudor Close". 


The game is a faithful eight-colour 
mode 2 copy of the original. As in the 
board game, each player takes on the 


identity of one of the suspects. It is the 
task of each player to piece together the 
clues to the crime. This involves moving 
from room to room, and quizzing your 
opponents. The winner is the first to 
deduce the three components of the crime: 


Players can select one of four formats 
for Chart Challenge which can be a one or 
two player game. The timed quiz is 
better of these versions, 
with any time up to 6Ø minutes allowed for 
each player. 


Players can select any period between 
1952 and 1985 on which to answer 
questions, but must select a span of at 
least five years. 


There are a few minor niggles with the 
program (especially where abbreviations 


well as personalities, 
lyrics and albums. 
Title : Stryker's Run 
Supplier : Superior Software 
Rating d 
Reviewer : Daniel Gaster 
Price : Tape £9.95, 
Disc £11.95 
Yet | another quality 
release in time for 
Christmas by Superior 


Software, this time in 
association with Acorn- 


soft. Your mission, as 
Commander John Stryker, 
is to fight your way 
Title : Mikie 
Supplier : Imagine Software 
Price : Tape £8.95 
Tape only. 
Rating s kkk 


Reviewer : Mike Williams 


If there were a prize 
for the most unlikely 
game of 1986, then Mikie 
would surely romp away 
with an Oscar. Set in an 
American high school, you 
play the high school 


through enemy lines to HQ. In reality, 
this means travelling from left to right 
across a scrolling landscape avoiding 
enemy soldiers, landmines and bombs from 
enemy helicopters and planes. 


You can jump, duck, run, fire a pistol 
and throw grenades. You can also 
commandeer abandoned aircraft and helic- 
opters to speed you on your way, but watch 
out for enemy aircraft. The graphics are 
the best part of the game; all the figures 
are drawn cartoon-style and even the 
larger aircraft are smoothly animated. The 


Romeo who is out to impress his 
girlfriend. You do this by collecting 
hearts scattered round the classroom, 
locker room, canteen etc while avoiding 


the teacher, janitor or whoever in 
authority stands in your way. Each heart 
collected builds into a message for 


Mikie's girlfriend. Thump your class-mates 
(a process called Hip-Zap) for extra 
points and to steal their hearts. 


You can stun your pursuers by throwing 
chickens or basketballs at them, while 
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the murderer, the weapon and the place of 
the dirty deed. 


This is a good, colourful 
implementation of the old favourite by 
Waddingtons, but is really best suited to 
single player use. Half a dozen people 
cannot gather around a computer in the 
same way as they could a board game spread 
out on the table. The computer version is 
ideal for those unable to field a full 
team. Full marks to Leisure Genius, 
though, for the implementation. 


are concerned), but with a 60,000 question 
database you would expect a few anomalies, 


and I don't think these detract too much i r Brothers Philips) 
from the general enjoyment of the game. 5 Faces (Decca? 


The quiz may seem expensive at £17.95, 
but is supplied on three 8Ø track discs, 


five 40 track discs or five cassettes, cð. 7 OMNCM FOLLOWER OF FAOHION 
containing a total of 720K of data. e aW T Cur? 
Gene Pitney (Stateside) 
9 THESE BOOTS ARE MADE FOR WALKIN 
Overall, I enjoyed the game, and was «1» 10 MAKE THE VORLO GO RUAY > 


Eddy Arnold (RCA) 
Insert database diskette in drive O _ 


able to polish up on my knowledge of the 
pop world. This is certainly another game[; 
to be recommended for Christmas. 


background of ruined buildings and other 
features are very well drawn, though they 
play no direct part in the game. 


I felt that Stryker's Run was slighly 
disappointing in terms of originality but, 
as always with Superior, the actual game 
has been very well written. The package 
includes an enhanced Master version with 
some superb graphics, though the game is 
essentially the same. Overall, perhaps not 
Superior's best release this year, but 
still well above the standard of most 
other games. 


when 'Teach' gets really mad, he starts 


throwing his false teeth about! In 15.994000  Hr:010000 
addition, as the instructions say, OPEN! 
"Kissing is automatic"! Harrassed by the = E" 


dancing girls (obviously normal in 
American schools) you may wonder if 
Mikie's girlfriend is really all 
worthwhile. 


Well, Mikie may please some games 
fanatics, desperate for something 
different, but if you're looking for a 
really good game this Christmas then du 

D 


elsewhere. 
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ROUND-UP 


Pssst! Wanna a ROM for Christmas? 
Geoff Bains has been trying out the 
latest utility ROMs for Beeb and 
Master. 


Mee 


Title : BROM+ 

Supplier :Clares Micro Supplies, 
98 Middlewich Road, 
Northwich, Cheshire. 
Tel. (0606) 48511 

Price : ROM £34.50, Disc £30.00 


Brom Plus is a 16K ROM packed with 
over 35 commands. All the commands can be 
prefixed with a Z, in accordance with 
BEEBUG's system, to avoid conflict with 
commands in other ROMs. The commands are 
in three sections. The first covers Basic 
toolkit commands. 


The expected "Bad program' cure, 
search and replace (FIND and CHANGE), line 
renumber, move, and copy are all there. 
Also included is a formatted lister that 
indents all lines, spaces keywords, and 
splits multi-statement lines. 


Brom Plus has both variable and cross 
reference listers to produce a listing of 
all real, integer, or string variables or 
array, procedure, or function names. 


The most radical aspect of Brom Plus 
is its Basic editor. This is a mode 7 
editor with more than a passing 


resemblance to Wordwise. Program lines can 
be freely edited in either insert or 
overwrite mode. New lines can be created 
and complete lines deleted. An unusual but 
useful feature is the change case facility 
(Ctrl-S, just like Wordwise). The Basic 
editor is not as powerful as others around 
but it is fast and very easy to learn. 


The second section of Brom Plus is the 
disc utility section. This has the usual 
format and verify commands and a fairly 
Standard disc sector editor. The editor 
uses mode 7 which means that only a small 


54 


part of a sector can be displayed at a 
time. The data can be edited as hex 
numbers or ASCII characters, but there is 
no cursor in the ASCII section, so it can 
be unclear what you're editing. 


A search routine for disc data is also 
provided, and this enters the sector 
editor when the string is found. Multiple 
file copy and delete commands offer a menu 
System for choosing which files are moved 
or removed. 


An unusual feature is the two commands 
*DGET and *DPUT, to transfer chunks of 
data between memory and specified sectors 
of the disc. These can be particularly 
useful when rescuing 'lost' files, and the 
excellent Brom Plus manual contains a 
whole section on rescuing files with the 
Brom Plus commands. 


Brom Plus also has an automatic menu 
System similar to that published in BEEBUG 
(Vol.4 Nos.2 and 5). Only files in the '&' 
directory are listed, and information 
describing the program is stored 
Separately in a special file and created 
with the *UPDATE command. 


The final section of Brom Plus is the 
general section. This has a function key 
lister, memory editor (similar to the disc 
sector editor) and a memory search 
command. ROM listing and enable/disable 
commands are also provided, as is a most 
useful *CASE command. This restricts input 
to upper, lower or mixed case, regardless 
of the Caps and Shift Lock keys. 


There are many utility ROMs around. 


Brom Plus offers little unavailable 
elsewhere, but if you require some or all 
of these features, then Brom Plus is well 
thought out, well implemented and well 
worth it. m == Tu 
ncc cy. 
Title : Advanced Disk Investigator 
Supplier : Advanced Computer Products, 
6 Ava House, High Street, 
Chobham, Surrey GU24 8LZ. 
Tel. (0276) 76545 
Price : £28.75 
The Advanced Disc Investigator is a 


disc sector editor - just one of many 
utilities included in other ROMs. However, 
the ADI sector editor is the one to end 
all others. ADI is a 16K language ROM, It 
is compatible with the model B with an 
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8271 disc controller, a Master or B+ with 
an 177Ø or even a model B with most types 
of 177Ø upgrades. 


ADI has just one command (*ADI) and 
one screen. This is a mode Ø screen with a 
picture of a disc in a sleeve. The disc 
'label' is the command menu and the 
'sleeve' displays status information about 
the disc drives and all of a disc sector 
in both hex and ASCII. 


The commands are selected either with 
their initial letter or with a cursor menu 
system. This is the best of both worlds 
and a feature well worth imitating. 


To cope with the various disc formats 
ADI can directly use all the parameters 
affecting the disc controller chip - 
number of tracks, density, track, sector, 
head and length IDs and so forth. ADI can 
also detect what a disc is already using, 
and defaults accordingly. 


2 cup 
65 of tea or coffee 
while working a 

2 t the micro keyb 


69 oard is a good 1 
72 for the user 
, it can be dang 


BØCØ 61 6C 20 7 al prevents an 
BØDØ 79 28 64 GÅ 6 7 4 6D 2 y damage fron sp 
BOER 69 6C 74 12 7 ilt drinks but a 
BØFØLGC)GC GF s 
NAUSIA TRACK:0A SECTOR:88 BYTES:0256 D/DRIVE:1 96 FM 
TRRCKS:88 — T/ID:888 = H/ID:888 — S/ID:808  L/ID:881  SECTORS:18 


OPERATION: RESULT:888 Successful Completion NORMAL DATA 


Two sets of this status information 
are displayed - for a source and 
destination disc. All the parameters can 
be changed with the cursor keys, although, 
strangely, the up key is used to decrease 
a value and the down key to increase it! 


Once both discs are set up to your 
satisfaction some or all of the tracks can 
be formatted, verified, copied, edited, 
read or written to/from memory, printed 
out or 'unformatted'. The most impressive 
of these functions are the copier and 
editor. ADI \ cán, with a little 
manipulation, copy just about any disc. I 
successfully used it to copy a Wordwise 
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file onto a disc set up to be read by an 
IBM PC! 


The editor is also excellent. This is 
the best disc sector editor I've seen. It 
is both fast and flexible. It does little 
more than other editors but it is pleasant 
to use - a definite rarity. 


The ADI is a powerful package. There 
is little you'd want to do to a disc that 
this software can't help with. For serious 
disc users this is a must. 


Mc“ by” ] 


Title : Floppywise Master 
Supplier : Software Services, 
65 South Mossley Hill Road, 
Allerton, Liverpool. 
Tel. 051-427 78 
Price : £30.95 


Floppywise Master is, as you'd expect, 
a ROM of disc utilities for the Master 
128. It is an upgrade to the original 
Floppywise (reviewed BEEBUG Vol.4 No.1). 


The ROM has (yet another) disc sector 
editor and main memory editor and a ROM 
inspector. These operate in mode 7 and are 
fast, if not original. Like BROM Plus, 
Floppywise Master has disc and memory 
search routines which enter the relevant 
editor on each find. It has multiple file 
copy and delete routines too, and even an 
automatic menu system. 


*FCOMPARE compares a disc file with a 
section of memory. *RESTORE places data 
directly at a specified location on the 
disc. Most original is the *AUTOSAVE 
command. This will automatically save a 
copy of a program under development every 
four minutes without troubling the user. 


Useful commands for Master owners are 
*AFORM and *AVERIFY. These format and 
verify a disc in ADFS mode. Three formats 
are available: 40, 80 and 160 which treats 
both sides of a disc as one large disc. 
*FILES displays a hierarchical list of all 
the files on an ADFS disc - very useful 
when lost in a directory maze. 


Routines are provided to enable or 


disable ROMs and load in ROM images from 
disc - rather pointless on the Master 
which already has the *SRLOAD command. 
However, more useful are the *RMOVE 
command to move sideways programs from one 
slot to another, *RSEARCH to search a 

55 


sideways slot, *RCLEAR to clear a slot and 
*CROM to copy a ROM to disc. 


Floppywise Master also has a 
selection of Basic toolkit commands which 
sit uneasily amongst the rest. *FIND is a 
standard Basic program string search. 
*CLEAR zeros all variables, *BAD recovers 
a 'Bad program', *BMOVE moves down a 


program intended for the cassette filing 
System. *FUNC lists the function key 
definitions, *ASCII prints out all the 


ASCII codes and characters and 
lists the Basic keyword tokens. 


*TOKENS 


HEX URLUE 
Floppy-wise MAST 


UBYUTGUGOWDADUNNOUNOO 
NTNOVNUGELSDVONSOSNEO 
DODKENDOMTNGGGUNNNSASO 
FBUØTONVANDAKWDANDUVAO 
NDSNmOoNOND0OONWnnAUANDO 
ØDMOODUVODYPODUOAVPKWNKOO 
DOTNUIDOUTNDOØNDONVNOANA 
OODYNTNOTDONOKWNVOUITNIO 
ONNIONDIDmOOUODOONNNNO 
u$K00000+00n000000000 
SNUTE NGS EODANNANS VO 
OSTOUDTUNUNOVSUDUNDOD 
NØDTIDDØNTDDTONGANSNG 
Quo comooavmuyoommruoN 
OP ON OON 09 0 0 19 OG AA KVUNN 
kHO00OMMOKLHUDTOUTKURANNEDO 


Floppywise Master provides a useful 
array of commands but little that is 
original. What's more, Floppywise Master 
seems to be designed by a committee. It 
has none of the coherent design of, say, a 
Clares' ROM like Brom Plus or Ramrod which 
provide essentially the same material. 


Menu" 


Title : Advanced 1770 DFS 
Supplier : Advanced Computer Products, 
6 Ava House, h Street, 
Chobham, Surrey GU24 8LZ. 
Tel. (0276) 76545 
Price : £34.50 
Only ACP has the cheek to call all its 
products  'advanced'. However, the label 


does usually fit. The A177ØDFS is 
available for Master or B+ owners or model 
B owners with 1770 upgrades, and provides 
all the functions of Acorn's 1770 DFS and 
lots more besides. 


The A1770DFS is fully compatible with 


Acorn's 1770 DFS, and is as compatible 
with old DFS discs as that is. However, 
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the A1770DFS can format and use double 
density  (MFM) discs, 'large format' discs 
(both sides of a disc treated as one), and 
'large catalogue' (62 files) discs. 


These extras are handled with 
extensions to the existing commands (such 
as *DRIVE Ø 80 MFM), and clever automatic 
detection by the DFS. 


An extension to the OPT command allows 
the formatting skew to be changed to suit 
your particular drives and to alter the 
disc options (double/single density or 
automatic and read an 8Ø track drive as 8Ø 
track, 4Ø track, or automatically). 


That alone is enough to warrant the 
'advanced' title but the A1770DFS can also 
use sideways RAM banks as a fast RAM disc, 
configured as drive number 8 (though this 
can be changed to any drive number). All 
the other commands can then be used as 
normal on this RAM disc. 


As many sideways RAM slots as you want 
can be used as a RAM disc and they need 
not be in adjacent slots. The *SRRAMS 
command sets it all up. This system is 
much preferable to Watford's Silicon disc 
system that requires either the DFS or 
Silicon filing system to be in use at any 
time. Treating the RAM as just another 
disc makes it much more useful. 


ACP have also implemented on this ROM 
a number of useful commands already 
available to 177Ø Master users, and they 
have, quite sensibly, used the same 
command names as Acorn. Thus *APPEND will 
append entries to an EXEC file, and 
*SPOOLON will do the same with a spooled 
file. *CREATE can be used to generate an 
empty file of any specified length, while 
*MAP will tell you how the used sectors of 
a disc are distributed. 


ACP's A1770DFS is obviously intended 
to replace Acorn's 1770 DFS, and for those 
model B and B* users who are considering 
an upgrade but have not already purchased 
the standard 1770 DFS, it looks like a 
good buy since it appears to contain all 
of the commands that Acorn provide in 
their DFS, plus a few more. The RAMdisc 
must be seen as an extremely useful added 
bonus - all thrown in for free - or 


almost. 
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PITFAL4 NETE 


For this, the Christmas issue of 
BEEBUG, games iter Jonathan 
Temple has really gone to town. Not 
only is Pitfall Pete a superb game, but 
you can create and edit the game 
screens to provide endless fun. 


'Pitfall Pete' is a  'Repton' style 
game in which you must collect all the 
diamonds on each screen, being careful not 
to trap yourself or the diamonds when you 
dislodge the many boulders. 


As such, the game is high on strategy, 
and the five screens require a high degree 
of planning and forethought before you can 
complete them. The game also contains an 
easy-to-use screen designer, allowing you 
or others to try and conquer screens of 
your own design. 


When you run the program you will be 
greeted by a menu. Pressing 'P' will allow 
you to play the game, and 'Q' will quit 
the program - the other options will be 
explained later. 


The keys used to control Pete are the 
usual 29, Xt, S Et. andl ate fore deri. 
right, up and down movement respectively. 
In addition, the game can be paused by 
pressing 'P', and continued with 'C'. The 
Sound effects can be turned on and off 
with 'S' and 'Q'. Pressing 'R' will allow 
you to re-start a screen, which is useful 
if you become trapped (a common occurrence 
when you first start to play!), although 
you do lose a life. Pressing Escape will 
terminate the current game and return you 
to the menu. 


If you should complete a screen, then 
a 3-digit 'pass code' for the next screen 
is revealed. If you wish to return to this 
Screen, without the bother of playing the 
previous ones, selecting option 'C' from 
the menu ('Code entry') will allow you to 
enter the code and start at the relevant 
Screen (Illegal codes are ignored). 
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EDITING AND DESIGNING SCREENS 


Choosing option 'E' from the menu will 
allow you to edit the current screen (i.e. 
the one last played). Up to twenty screens 
can be designed and edited, although you 
will need to know the pass code for each 
one and select it using option C. When 
editing the screen, the cursor keys will 
move the cursor across the playing area. 
Features are inserted using the function 
keys - pressing fØ will insert a blank, fl 
earth, f2 a wall, f3 a boulder, f4 a 
diamond and f5 a trapdoor. When you have 
finished editing press 'F' or use Escape. 


Screens may contain as many diamonds 
as you like (they are counted automatical- 
ly by the program), but remember, a screen 
without any diamonds cannot be completed! 


Pete usually starts a screen from the 
top-left corner, but this can be changed 
by pressing f6. The default colour scheme 
used can also be changed, by using the 
keys 'D', 'R' and 'E' (diamonds, rocks and 
earth) to select the feature to have its 


colour changed, and then pressing the 
numbers 1 to 7 for the new colour. The 
feature currently being changed is 


displayed beneath the playing area. An 
additional feature is that Ctrl-fØ can be 
used to clear the screen to 'earth'. 


Once you have edited a screen, or 
designed a new one, you will probably wish 
to save it. This can be done by using 
option 'S'. You will then be asked for the 
filename, the first screen to be saved and 
the last - allowing several screens to be 
saved at once. 
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LOADING 21Ø UNTIL C%=6 

Loading previously saved screens is 22Ø MODE7:GOTO 27Ø 
performed using option 'L'. Again, you 230 : 
will be asked for a filename, and the 240 IF ERR>127 CLS:PRINT''"FILING ERRO 
Screen at which the stored screens are to R:"':REPORT:G$-INKEY(200):GOTO 149 
be loaded. Be careful not to overshoot the 250 MODE 7:PRINT'':REPORT 
Screen storage area (by loading two 260 PRINT" at line ";ERL 
Screens starting from screen twenty, for 270 *FX 4 
instance) as this cannot be checked for! 280 *FX 229 

290 END 

ENTERING THE PROGRAM 300 : 

The program should be fairly 1ØØØ DEFPROCgame 
straightforward to enter, although the 1Ø1Ø Z%=3:5%=Ø:P%=SS:SF=Ø 
data for the five screens (lines 1Ø2Ø REPEAT 
3590-3690) should be entered carefully, or 1Ø3Ø PROCscreen 
you may find yourself trying to complete 1040 REPEAT 
an impossible screen! However, it is 1050 PROCkeys: PROCman 
EXTREMELY important that you save the 1060 FOR N=] TO 15Ø:NEXT 
program, preferably twice, before trying 1676 UNTIL E% 


to run it. It contains some assembler 
(lines 3340-3360; just enter these as you 


would normal Basic) and uses the 
indirection operators ? and ! frequently, g ** +% a 9 
So certain typing mistakes could prove a 


fatal. 


è € 


— 


® 
$ LJ 
There is a lot of typing involved in a 
entering the data for the five screens 
despite the extremely compact format used. > 
Any or all of these lines (3590-3670) may 
be omitted, depending on how many screens 
you wish to have 'ready-designed'. 
However, line 3690 MUST be included. When 
typing the program in, it may also be a 
good idea at first to omit line 3380, 
which disables the Escape key. 


00040 ° R= + 


Since the program runs in mode 5, no 


awkward downloading or resetting of PAGE 1080 IF E$-1 Z%=Z%-1:SOUND 16,2,1ØØ,2:T 
should be necessary - the program will run IME=Ø:REPEAT UNTIL TIME>1ØØ 
quite happily at &19ØØ (or &EØØ). 199Ø IF E%=2 PROCnext 


11ØØ UNTIL Z$-0 OR E$-3 
1118 VDU 28,4,13,15,11,12,26 


10 REM PROGRAM PITFALL PETE 1120 PRINTTAB(5,12);"GAME OVER"; 
20 REM VERSION Bl.4 1130 TIME=Ø:REPEAT UNTIL TIME>2ØØ 
30 REM AUTHOR J. Temple 140 ENDPROC 
40 REM BEEBUG December 1986 1158 : 
50 REM PROGRAM SUBJECT TO COPYRIGHT 1160 DEFPROCkeys 
60 : 1170 IF INKEY-17 THEN *FX21Ø,1 
100 ON ERROR GOTO 240 180 IF INKEY-82 THEN *FX21Ø 
118 MODE 5:HIMEM-&41 00 1198 IF INKEY-56 REPEAT UNTIL INKEY-83 
120 PROCinit OR INKEY-113 
130 PROCsetup 200 IF INKEY-52 E2-1 
140 REPEAT 1210 IF INKEY-113 E%=3 
150 C%=FNmenu 1220 ENDPROC 
160 IF C%=1 PROCfile(0) 1230 : 
178 IF C$-2 PROCedit 1240 DEFPROCman 
180 IF C$-3 PROCfile(1) 1250 V3=X%:W%=Y%:L3=Ø 
190 IF C$-4 PROCgame 1260 IF INKEY-98 IF X%>Ø PROCpush(-1):G 
200 IF C$-5 PROCcode OTO1 309 
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1270 IF INKEY-67 IF X$«19 PROCpush(1):G 
OTO13ØØ 

1280 IF INKEY-73 IF Y%>Ø VDU31,X%,Y%-2: 
CALL R%:L%=C%:IFC%<226 OR C%=228 Y$-Y$-2 
: GOTO13ØØ 

1290 IF INKEY-1Ø5 IF Y%<26 VDU31,X%,Y3+ 
2:CALL R$:L$-C$:1FC$«226 OR C$-228 Y%=Y% 
+2 

1300 IF X%<>V% OR Y%<>W% PRINTTAB(V%,NW% 
) ; FS (Ø) ; TAB (X%,Y%) ;F$ (6) : IFL3=225 SOUND 
16,-5,5,1 

1310 IF D$ PROCfall 

1320 IF L%=228 SOUND17,1,100,1:0$-0$41: 
PROCscore(10):IF Q%=D E%=2 

1330 VDU31,X$,Y$-2:CALL R$ 

1340 IF C$-226 IF Y%>1 PROCfall:D%=TRUE 
:J$-X$:K$-Y$ 

1350 ENDPROC 

1360 : 

1370 DEFPROCfall 

1380 IF D$-0 ENDPROC 

1390 IF J$«»X$ OR K%<>Y% D$-0:PROCdrop( 
J$,K$-2) 

1400 ENDPROC 

1410 : 

1420 DEFPROCpush (D$) 

1430 U$-X$4D$:VDU31,U$,Y$:CALL R%:L%=C% 

1440 IF C$«226 OR C%=228 X$-U$:ENDPROC 

1450 IF C%=226 IF U%>Ø IF U%<19 VDU 31, 
U$4D$,Y$:CALL R$:IF C$«225 SOUND16,-12,6 
7 1:X%=U%: PRINTTAB (U%, Y) ;FS (Ø) ; TAB (U%+D% 
, Y%) ?ES (3) ; : PROCdrop (U$4D$ , YS) 

146Ø ENDPROC 

1470 : 

1488 DEFPROCdrop (A%,B%) 

1499 VDU 31,A$,B$:CALL R$ 

1500 IF C%<>226 OR B%+2=28 ENDPROC 

1518 VDU 31,A%,B%+2:CALL R$ 

1520 IF C%>224 IF C$«231 ENDPROC 

1530 IFC%=232 E$-1:ENDPROC 

1540 VDU 31,A%,B% 

1550 N%=Ø:REPEAT N%=N%+1 

156Ø IF VPOS=Ø C%=Ø ELSE VDU 11,11:CALL 

R$ 

1570 UNTIL C%<>226 

1580 REPEAT 

1590 PRINTTAB (A%,B%-(N%-1)*2) FS(Ø) 

1600 PRINTTAB(A%,B%+2) FS(3) 

161Ø FOR N=Ø TO N% DIV3 

1620 SOUND 0,2,150,1:NEXT 

1630 B%=B%+2:VDU 31,A%,B%+2:CALL R$ 

1640 UNTIL B%=26 OR C$-232 OR (C%>224 A 
ND C$«231) 

1658 IFC$-232 E%=1:ENDPROC 

1660 IFC%=228 PROCslide(A%,B%) 

1678 ENDPROC 

1680 : 

1690 DEFPROCslide(A%,B%) 

1700 LOCAL H$ 
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1718 IF A250 VDU31,A$-1,B$:CALL R%:IFC% 
«225 H$--] 

1720 IF A%<19 VDU31,A%+1,B%:CALL R$:1FC 
$«225 H$-1 

1730 IF H% PRINTTAB(A%,B%) ;F$ (Ø) ; TAB (AS 
*H$,B$) ;FS (3) ; : PROCdrop (A%+H% ,B%) : PROCdr 
op (A%,B%-2) 

174Ø ENDPROC 

1759: 3 

176Ø DEFPROCscreen 

1770 VDU 23;1,0;0;0;0; 

1780 S=P%:PROCmine 

1798 COLOUR 2:PRINTTAB (0,29) ; "SCORE: ";T 
AB(14,29) ;F$(6) ; TAB(17,29) ;F$ (4) ; 

1800 Q%=Ø:D%=Ø:E%=Ø: PROCScore (Ø) 

1810 VDU 23;1,40;0;0;0; 

1820 ENDPROC 

1830 : 

1840 DEFPROCscore (N$) 

1850 S$-S$4N$:COLOUR 3 

1860 PRINTTAB (7,29) ;LEFTS ("ØØØØØ" , 5-LEN 
(STR$ (S3) ) ) +STRS (S$) ; TAB(15,29) ;Z$-1; TAB 
(18,29) ;Q$; 

1870 ENDPROC 

1880 : 

1890 DEFPROCnext 

1900 SF=SF+1:P%=P%+1:IFP%=21 P%=] 

191Ø vor 28,4,15,15711,12,2671772 

192Ø PRINTTAB (5,12) ;"NEXT CODE"; 

1930 COLOUR l|:PRINTTAB (8,14) ; P$ (P$) ; 
1940 FOR N$-1 TO (3ØØ+SF*1ØØ) DIV25 
1958 PROCscore (25) : SOUND 0,-10,5,1 

1960 FOR N-1 TO 50:NEXT, 

1970 RESTORE 2040:N-81:*FX 15 

1980 FOR L$-1 TO 10:READ A,D:N=N+A 

1990 SOUND 1,-10,N,D:SOUND 2,-5,N+48,D 
2000 NEXT:REPEAT UNTIL ADVAL (-7) =15 
2010 TIME=Ø:REPEAT UNTIL TIME>2ØØ 

2020 ENDPROC 

2030 : 

2040 DATA 0,4,8,4,8,4,4,4,8,8,-12,8,4,8 
7-12,8,8,8,-16,8 

2050 : 

2060 DEFPROCfile(F$) 

2070 B$-0:REPEAT VDU12,17,1,B$ 

2080 PRINT''"ENTER FILENAME:"' 

2090 COLOUR 3:INPUT ""F$:B$-7 

2100 UNTIL F$»"" 

2118 CS="LOAD": IF F% C$="SAVE" 

2120 X%=FNinput (CS+" FROM SCREEN") 

2130 IF F% Y%=FNinput ("TO SCREEN") :IF Y 
$«X$ Y$-X$ 

2140 LS=STR$" (FNaddr (X%) ) 

2150 CS=C5+" "F$+" "ns 

2160 IF F% CS=CS+" "+STRS" (FNaddr (Y%) +2 
89) 

2170 $&7ØØ=C5:X%=Ø:Y%=&7:CALL &FFF7 
2180 ENDPROC 

2190 : 
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22ØØ DEFPROCcode 

2210 CLS:PRINT'''"ENTER A CODE:"' 

2220 INPUT">--> "T$ 

2230 N%=Ø:REPEAT N%=N%+1 

224Ø UNTIL P%(N%)=T% OR N%=2Ø 

225Ø COLOUR 2 

2260 IF P%(N%)=T% SS=N%: PRINT ' ' "SCREEN 
"z SS;" CHOSEN": GOTO228Ø 

227Ø PRINTTAB (4) ' "ILLEGAL CODE" 

2280 TIME-0: REPEAT UNTIL TIME»200 

2290 ENDPROC 

2300 : 

2310 DEFPROCclear (S) 

2320 A$-FNaddr (S) 

2330 FOR N%=Ø TO 276 STEP 4 

2340 A$!N$-&1010101:NEXT:A2?285-1 

2350 ENDPROC 

2360 : 

2370 DEFPROCedit 

2380 CLS:C$-282:8-S8:*FX4,1 

2390 REPEAT PROCmine 

2400 VDU 23;10,6;0;0;0; 

2410 A%=FNaddr (S) : PROCcolours 

2420 D$-0:VDU 31,10,15 

2430 REPEAT G$-GET 

2440 IF G$-139 IFVPOS>] VDUI1,11 

2450 IF G%=138 IFVPOS<27 VDU10,10 

2460 IF G$-136 IF POS>Ø VDU8 

2470 IF G$-137 IF POS<19 VDU9 

2480 IF G$-144 PROCclear (S) :D%=1 

2490 IF G$-27 D%=2 

2500 N$-(G$ ORI6)-48 

2510 IF N%>Ø IF N$«8 A$?C$-N$:PROCCcOlou 
rs 

2520 G$-G$ AND 223 

2530 IF G$-70 D$-2 

2540 IF G$-82 C%=282:PROCcolours 

2550 IF G%>67 AND G%<7Ø C$-2124G$:PROCC 
olours 

2560 IF G%>] IF G%<8 VDUll:PRINT F$(G$- 
2) ;CHR$8; :A$? (POS+ (VPOS-1) *1Ø) =G%-2 

2570 IF G%=8 X-POS:Y-VPOS-1:VDU 31,A%?2 
83,A$?2284:PRINT FS (A%?285) :A%? (A%?283+(A 
$?284) *10) =A3?285:A%$?285=A%? (X+Y*1Ø) :AS? 
(X*Y*10) 21:A$2283-X:A$?284-Y:VDU 31,X,Y: 
PRINT F$(6) ;CHR$8; 

2580 UNTIL D$:UNTIL D$-2:*FX 4 

2590 VDU 23;10,32;0;0;0; 

2600 ENDPROC 

2610 : 

2620 DEFPROCcolours 

2630 X-POS:Y-VPOS 

2640 VDU 19,1,A2$?280;0;19,2,A2?281;0;19 
13,5$?282;0; 

2650 COLOUR C%-279 

2660 PRINTTAB (0,29) ; "CHANGING ";MIDS$ ("D 
IAMONDSEARTH ROCKS  ",(C2-280)*841,8) 
;TAB (X,Y); 

2670 ENDPROC 

2680 : 
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2690 DEFPROCmine 

2700 VDU 23;10,32;0;0;0; 

2718 A%=FNaddr (S) :D=Ø 

2720 VDU4,12,19,1,A%?280;0;19,2,A%?281; 
Ø;19,3,A$?282;Ø; 

273Ø FOR V%=Ø TO 13 

2740 FOR W$-0 TO 19:IF?A%=4 D=D+1 

2750 PRINT FS$(?A%);:VDU 11:A%=A%+1 

276Ø NEXT: PRINT: NEXT 

2770 X$-A$?3:Y$-A2?4 

2780 PRINTTAB(X%,Y%) FS(6) 

279Ø ENDPROC 

2800 : 

281Ø DEFFNaddr (S) =M3+S* 299-290 

2820 : 

2830 DEFFNinput (P$) 

2840 COLOUR l:PRINT'''PpS$-4";"; 

2850 Y$-VPOS:B$-0:COLOUR 3:REPEAT 

2860 PRINTTAB (LEN (P$) 42, Y$) ; SPC ( 2Ø) ; TAB 
(LEN (PS) +2, Y%) ; 

2870 VDU B$:INPUT ""S:B$-7 

2880 UNTIL S>Ø AND S«21 AND INT(S)-S 
2890 -S 

2900 : 

2910 DEFFNmenu 

2920 VDU 4,12,2Ø,17,1 

2930 FOR N$-0 TO 30 

2940 PRINTTAB (Ø,N%) STRINGS (20, CHR$225) 
2950 NEXT:VDU 28,2,26,17,3,12,26 

2960 PRINTTAB(4,5) ;"PITFALL PETE"; 

2970 COLOUR 2:PRINTTAB (4,7) ; STRINGS (12, 
CHR$228) ; TAB (4,8) ; STRINGS (12,CHR$229) ; 
2980 RESTORE 3100 

2990 FOR N$-] TO 6:READ LS,AS 

3000 COLOUR 1:PRINTTAB (4,9+N%*2) ;L$; 
3010 COLOUR 3:PRINT AS:NEXT:COLOUR 1 
3020 PRINTTAB(4,24) ;"CHOICE ?"; 

3030 *FX21 

3040 REPEAT GS=GETS 

3050 C$-INSTR(" LlEeSsPpC 
3060 IFGS=CHR$27 C$-2 
3070 UNTIL C$ 

3080 =C% 

3090 : 

3100 DATA L,OAD SCREENS,E,DIT SCREEN,S, 
AVE SCREENS,P,LAY GAME,C,ODE ENTRY,Q,UIT 
PROGRAM 

3118 : 

3120 DEFPROCsetup 

3130 VDU23,225,183,-4,91,239,186,111,24 
5,95 

3140 VDU23,226,60,94,94,191,191,191,191 
,191 

3150 VDU23,227,191,-1,191,223,171,87,10 
6,60 

3160 VDU23,228,16,16,40,40,84,108,214,1 
70 

3170 VDU23,229,214,108,84,40,40,16,16; 
3180 VDU23,230,-1;-1;-1;-1; 

3198 VDU23,231;0;0;64,191,-1 


",G$)DIV2 
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3200 VDU23,232,36,90,90,126,36,60,24,6Ø 
321Ø VDU23,233,126,189,24,60,36,36,36,1 


322Ø RESTORE 329Ø:FOR A%=Ø TO 6 

323Ø READ N%:FOR C%=1 TO N%:READ V% 

3240 FS(A%)=FS(A%) +CHRS (V%) : NEXT, 

325Ø ENVELOPE 1,133,8,4,8,3,1,1,126,0,0 
7-10,126,0 

3260 ENVELOPE 2,1,0,0,0,0,0,0,90,-1,-2, 
-3,97,97 

3270 ENDPROC 

3280 : 

3290 DATA 4,32,10,8,32,6,17,2,225,10,8, 
225,6,17,2,230,10,8,230,6,17,3,226,10,8, 
227,6,17,1,228,10,8,229,6,17,1,231,10,8, 
32,8,17,1,232,10,8,17,3,233 

3300 : 

3310 DEFPROCinit 

3320 DIM F$(6) ,P$ (20) 

3330 M$-&4100:R$-&70 

3340 P%=R%: [OPT 2 

3350 LDA #135:JSR &FFF4 

3360 TXA:ORA #96:STA &4ØC:RTS: 

3370 *FX 225,2 

3380 *FX 229,1 

3390 RESTORE 359Ø:PRINT'"PLEASE WAIT" 

3400 L$-1:REPEAT 

3410 READ F%:IF F%=-1 GOTO3500 

3420 A%=FNaddr (L$):A2?282-F$ 

3430 READ A%?283,A%?284:A%?285=1 

3440 FOR N%=1 TO 24:READ AS 

3450 FOR Q$-1 TO 7+4*(N%=24) STEP 2 

3460 H$-EVAL ("&"+MIDS (AS ,Q%, 2) ) 

3470 ?A%=H% DIV36:A%?1=(H%-?A%*36) DIV6 

3480 A%?2=(H%-?A%*36-A3?1*6) 

3490 A%=A%+3: NEXT, :L3=L3+1 

3500 UNTIL F%=- 

3510 FOR B$-L$ TO 20:PROCclear (B%) 

3520 A$?280-3:A$?281-1:A$?282-6 

3530 A2?283-1:A2$?284-2:A$?285-]:NEXT 

3540 R-RND(-1):FOR N$-1 TO 20 


3550 P%(N%)=N%*RND (50) +1 ØØ: NEXT 

3560 VDU 23;10,32;0;0;0;:SS=1 

3570 ENDPROC 

3580 : 

3590 DATA 6,16,2,13A925E99,044F329E,5556 
56C2,31552B37, 2B2B5B50 , 50566256 ,502C3234 
,62586278,55554813,6C0C0250 , 50685059 , 4AA 
5323E, 2B732CØF , 7F555556 ,56304F3E, 4F2D817 
F,4A59C232,2B2B3210,63557A56,68485D81 , 4F 
2E2B97,192B9856,56565456, ØE5B 

36ØØ : 

3610 DATA 1,12,24,A34F2B2D,073F9F74 ,9E5 
15956,815B325C, 3E012B38 , 7F2B3130 ,A14FA07 
5,795Ø685C, 564F2bE50 ,9D077338,A1563150 , 5D 
550E2B, 312C3487,9C4F9D55, 3363164A, 385B55 
61,5E7CC19C, 3F622B87 , ØD4F565C, 31563250, 7 
57B2B2B, 2B2B342E, 612C9856, 565E 
3620 : 

3630 DATA 6,17,2,81565656,564F2D3E, 9F2B 
7F74,2B2B5751 ,2D753133, 32A4A580 , 374F617A 
, 7C2B2B2C, 732D9F56 , 5531577F , 385C994F , 509 
72B3E,7A077432,682B5232,63312B2B, 2C61342 
B,4F504F73, 3D562B74 , 8145562B, 2B4F31A9,A5 
7A6774 ,65504F 2B, 2B2B2C4A, 2B3B 
3640 : 

3650 DATA 6,17,12,815D8681 , 7A8733A4,815 
8AB33,A3519F74,2B2B6374, 75642B55, 5061347 
3, 3D2C7A32 ,555E7350 ,A@2B2B2C ,AC329E58, 4A 
4F5656, 562B32AA , 329D8181 , 6F7A5581 ,5281A5 
82, 392DA42E,8187972B, 316F8281 ,85327451 ,6 
42E822B,5D2D3856, 4F2B56A9, 2B37 
3660 : 

3670 DATA 6,11,2,5C623973,337A542B, 7FAC 
2B5B, 2E585779 , 2B2C7C2C, 56395D74 , 335D329D 
,38642B5C, 97584F3E, 56507B74 ,514F572B, 336 
1322B,2B2B565C, 5955589E, 56972B2E , 4F564F2 
B,2E2C3873,39015CAC,629F7382,517E0F82,64 
2E862B, 2A2B2C56, 56565650 , ØESF 
3680 : 

3690 DATA -1 


BEEBUG FILER ACCOUNTS (BEEBUG Vol.5 No.5) 

Inexplicably, line 7060 contains redundant information that will generate an error 
when this line is executed. Delete the 'dl,d2,' so that the line reads: 

7060 FOR I=] TO recp-1:PROCread(I,F1,1) : PROCcheck (VAL (record$ (3,1)) ,I) :NEXT I 
This applies to both magazine and cassete/disc versions. 


Furthermore, some readers have encountered problems resulting from inherent inaccur- 
acies in the Beeb's arithmetic routines. The principle indicator is a persistent '99' 
in the pence column of the statement balance. One solution, which appears to avoid the 
problems, has been suggested by Richard Brimson. This involves changing the '1ØØ*' 
multiplying factor in lines 3520, 4600 (twice), 4760 and 7820 to '1000*' followed by a 
"/1Ø' at the end of the particular instruction. Why a multiply by 1000 followed by a 
divide by 10 should avoid the problem is unclear, but it appears to work and is reco- 
mmended to any readers who encountered the problems described above. The problem will 
be investigated further and any additional information will appear in the next issue. 
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